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Te ofrecemos 
alga ^^muy Especial 

En el mes de septiembre Por este motivo, y despues de 

nacio una AMSTRELLA que vino a los 6 primeros meses de andadura 

demostrar que los Amstrad estaban juntos con nuestros lectores, ha 

ahi y habia que confar con ellos. vuelto a suceder algo muy 

Hoy, miles de personas nos dan imporfante: ha nacido una 

la razon. AMSTRELLA MUY ESPECIAL 


Ya esta a la 
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SOLICITUD DE NUMEROS ATRASADOS 


SIN EL RECARGO DEL IVA 


Oferta valida hasta el 28 de febrero de 1986. 

Deseo recibir en mi domicilio, sin el recargo del IVA, los siguientes 
numeros atrasados de Microhobby AMSTRAD, a\ precio de 1 50 ptas. 
coda uno 

Nota: 

Por razones adminisfrafivas no podemos admitir solicitu- 
des de envio de numeros sueltos con pago medianfe farje- 
fa de credito. Los pedidos confra-reembolso se incremen- 
taran en 75 ptas. de gastos de envio. 
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Estructura y moduhridad en los programas son los 
dos palabras mdgicas que separon a un programodor 
de un aficionado. En Basic, esfa eslrategia no puede 
llevarse ol mas alto nivel, como en en otros lenguajes, 
pero algo se puede hacer, con las subrutinas. 
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Ya se sabe, un ordenador es la mejor colculadora 
del mundo, el suer^o de cualquier cientifico o estudiante 
de Ciencias, porque, iquiert no ha tenido que 
realizar un ajuste por minimos euadrados a 

mano?Con el programo de este numero eso no 
sucedera mas. 


Banco de 0/| 
pruebas Jm 1/ 

Star Mouse es una utilidad al estilo del mitico 
Maclntosii, pensada para dolar al ordenador de un 
entorno de creacion artistica mucho mas amigable que 
el que posee de fabrica. Lo estudiamos a fondo. 
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Ana U sis 


Programacion 


Con la excusa de mostraros como se puede 
programar un reloj en Basic, no hemos podido resistir 
la tentacion de moslrar tambien el uso del comando 
EVERY para ver como mas de un programa puede 
usarse simultoneamente. 


El fono es lo que bdsicamente distingue a un sonido 
de otro, lo que separa una flauta de un violin. Por 
eso, como es tan importonte, onalizamos como se 
maneja en el Amstrad esto posibilidod. 


Mr, Joystick 


18 


Ultimate nos maravilla de nuevo con su creacion mas 
sofisticada Nightshade y la ciudad encontanda de la 
noche. 




Codigo ^Q 
Maquina JmO 

Esta vez le toco el turno a las instrucciones de 
fransferencia de bloques. Detras de un nombre tan 
aparatoso, se esconden una serie de ordenes de las 
mas utiles del Z8Q. 
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Primera 
plana 


Sistema de desarrollo para Amstrad. Norris deja 
Control Data. 
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Prim eras 
pasos 


Estructura y modularidad en los programas son las 
dos palabras magicas que separan a un programador 
de un aficionado. En Basic, esta estrategia no puede 
llevarse al mas alto nivel, como en en otros lenguajes, 
pero algo se puede hacer, con las subrutinas. 


Serie Oro 


rj. 


Ya se sabe, un ordenador es la mejor calculadora 
del mundo, el sueho de cualquier cientifico o estudiante 
de Ciencias, porque, iquien no ha tenido que 
realizar un ajuste par minimos euadrados a 
mano?Con el programa de este numero eso no 
sucedera mas. 
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An all sis 


Con la excusa de mostraros como se puede 
programar un reloj en Basic, no hemos podido resistir 
la tentacion de mostrar tambien el uso del comando 
EVERY para ver como mas de un programa puede 
usarse simultaneamente. 


Mr, Joystick 


18 


Ultimate nos maravilla de nuevo con su creacion mas 
sofisticada Nightshade y la ciudad encantanda de la 
noche. 
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Banco de ^ft 
pruebas ^ 1/ 

Star Mouse es una utilidad al estilo del mitico 
Macintosh, pensada para dotar al ordenador de un 
entorno de creacion artistica mucho mas amigable que 
el que posee de fdbrica. Lo esfudiamos a fondo. 
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Programacion 


El tono es lo que basicamente distingue a un sonido 
de otro, lo que separa una flauta de un violin. Par 
eso, como es tan importante, analizamos como se 
maneja en el Amstrad esta posibilidad. 


1 '■")' 


T ^m 


Codigo ^O 
Maquina jCO 

Esta vez le toca el turno a las instrucciones de 
Ironsferencia de bloques. Detras de un nombre tan 
aparatoso, se esconden una serie de ordenes de las 
mas utiles del Z80. 
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>WES 
SEE LOS DERECHOS DE FABRICACIO 
COMERCIALIZACION EN EXCLUSIVA PARA 
ESPAN/y^l^PROGRAMA. . . 

CONTIENE UN MARAVILLOSO POSTE 
A TODO COLOR DE LOS PICAPIEDRA 
1 LAS INSTRUCCIONES DEL JUEGO EN 

CASTELLANO. 



Deseo recibir los juegos que a conimuacion especilico, compronietrendome al pago del impone dc los mismos. 

Nombre 

Direccion 

Felelono 

Firma; 


\YAiM OAtM OOa 


SISTEMA_ 


.CANTIDAD_ 


n Conitarreembolso. [2 Ad|unio Talon. D Giro Postal. 

Deseo recibir mformacion de sus programas en: MSX D AMSTRAD iJ] 


primera 
piano 


ORRIS DEJA 
)NTROL DATA 
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trcives de su ya 
largo carrera como Hombre de ne- 
gocios, William Norris, fundador y 
maximo director de Control Data, de 
74 afios de edad, se ho ganado una 
cor»trovertida reputaciftn de innova- 
dor_y visionario. 

Para algunos, Norris es un genio 
que creo de la nada la primera corn- 
panic que fabrico supercomputado- 
res y crecio rdpidamente hasta con- 
vertirse en una fuerza mayor en el 
mundo del proceso de datos. 

Para otros, se trata de un «cabe- 
zadura» bien intencionado que ho 
comprometido a su compania en 
proyectos bienintencionados pero de 
dudosa rentabilidad, y le consideran 
directamente responsable de la diff- 
cil situacion que Control Data atra- 
viesa en estos momentos. 

Hace poco, William decidio que 
ya era hora de retirarse y asi se lo 
comunico a su gente en el cuartel ge- 
neral de la compania en Minneapo- 
lis. Le sucederd Robert Price, de 55 
afios, que trabaja estrechamente con 
Norris desde hace tiempo. 

En 1985, Control Data ha perdido 
del orden de 300 millones de dola- 
res, ha tenido que despedir a 7.000 
personas y atraviesa series dificulta- 
des financieras. 



COMO UNIX, 
PERO MAS 
BARATO 
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/oy dia, el Unix es 
sin duda el sistema operativo de mo- 
da en entornos multiusuorio y multi- 
tarea, pero tiene algun que otro in- 
conveniente: primero, es muy caro; 
segundo, el sistema operativo com- 
plete ocupa mas o menos 15 Me- 
gabytes en un disco duro. 

Un buen intento de hacer accesi- 
ble algo parecido al UNIX para un 
PC es el sistema operativo UNETIX, 
que permite ejecutor concurrente- 
mente en un PC hasta 1 tareas, una 
de las cuales puede ser un progra- 
ma PC-DOS (DOS nativo del PC). 

La casa creadoro del UNETIX, 
Lantech Systems, asegura que su sis- 
tema es compatible con el UNIX de 
AT&T (el no va mas del UNIX), pero 
mucho mas borato (250$) y, aunque 
se recomienda disco duro, puede co- 
rrer en un PC con dos unidades de 
disco. 


Sistema 
de desarrollo 

PARA AmSTRAD 

^^remlin Graphics, una co- 
nocida casa de software que ha 
creado la serie de Monty Mole, la 
version de Amstrad de Rocky y Pro- 
fanation, ha creado una division en- 
cargada de la comercializacion de 
utilidades para toda la serie CPC de 
Amstrad, etiquetado bajo el nom- 
bre de Discovery. 

El primer producto de la nueva di- 
vision se denomina PYRADEV, y es 
nada menos que un sistema de de- 
sorrollo complete que permite crear 
al programador software pea Ams- 
trad, tanto bajo Amsdos como CP/M. 

El paquete contiene 5 programas: 

— Un editor de 80 columnas, de 
las llamados a pontalla complete. 

— Un Macroensamblador-linker 
para Z80. 

— Un programa Monitor para 
depuracion de software junto con un 
desensamblador. 

— Un programa llamado DISC- 
NURSE pensado para monipular el 
disco a nivel de sectores. 

— Una utilidad de manejo de fi- 
cheros en disco llamada FILE MA- 
NAGEMENT. 

El editor permite editor rdpida- 
mente ficheros de hasta 32 kbytes de 
extension, y usa sus propias rutinas 
de lecture y escritura en disco. 

El mecroensemblodor/linker per- 
mite incluir hasta 32 ficheros fuente 
en cuolquier disco, con le que pode- 
mos crear librerias de rutinas comu- 
nes e gren moyoria de programas, 
y usarlas una y otra vez sin reescri- 
birlos. 

El Monitor servird pore depurer 
un programa en lenguoje mdquino 
de muches formes: ejecutdndolo po- 
se e peso, desnsombldndolo, etc. 

En cuento e los otros dos pregro- 
mes, con ellos podemos exeminer un 
disco con lupe y editor cuolquier sec- 
tor del mismo, corregirle y modificer- 
lo, etc. 

Lo mds importonte: los programas 
hordn use de tode le memorie dis- 
ponible en el sistema, con le que el 
1 28 y los 464-664 empliedos presen- 
tordn importontes mejoros. 
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BlENVENIDAS 
SUBRUTINAS 

Poco a poco nos vamos convirtiendo en unos «expertos» 

programadores y, por este motivo, ha llegado la hora de 

conocer unas herramientas que van a servir para ahorrarnos 

bastante trabajo, y a la vez vamos a conseguir con ellas que 

nuestros programas sean mucho mas claros y leglbles. Son 

las «subrutinas». 

otro remedio». No conocemos otro sistema de 
hacerlo. 

Lo primero que tenemos que hacer es colo- 
car al final del programa el grupo de instruc- 
ciones que se repiten —en este caso es solo 
una. 

A esta serie de Ifneas que reolizan una fun- 
cion muy particular — escribir asteriscos— que 
vamos a tener que realizar varias veces a lo 
largo de nuestro programa es lo que llama- 
mos «SUBRUTINA». 

Bueno, ya hemos delimitado que es lo que 
vamos a tener que repetir. Solo nos queda de- 
cirle la forma en que debe indicar al ordena- 
dor que vaya a ejecutar esta subrutina cuan- 
do lo necesite y la manera de volver al pro- 
grama del que provenimos. 

Con: 

GOSUB numero 

le ordenamos al Amstrad que se dirija a la 
subrutina cuya primera linea es la indicada por 
«numero». 

Una vez allf, continua la ejecucion siguien- 
do todas las lineas de este subprograma. 



''asta afiora estamos 
acostumbrados a construir un programa todo 
seguido, de principio a fin, de forma que nos 
hemos iimitado a ir poniendo instruccion tras 
instruccion en el orden correcto para que se 
fueran realizando secuenciolmente —una tras 
otra— todas y cada una de las acciones que 
hatfoTOus pr»?visto. 

Pero imaginemos que fiay una serie de ins- 
trucciones que realizan una misma funcion y 
que se repiten varias veces dentro de nuestro 
programa. Hemos tenido que teclear mas de 
una vez las mismas o parecidas lineas de ins- 
trucciones, 

Y, ino le ha dado la sensacion de, 
al escribirlas repetidamente, estar 
realizando un trabajo innecesario o 
al menos ingrato? Sea sincero. 

Este tipo de programa podn'a ser algo pa- 
recido al programa 1 que va escribir una fi- 
cha con todos nuestros datos separandolos por 
una linea de asteriscos, por ejemplo. 

Lo vamos a dividir en dos partes diferencia- 
das. La primera sera la que nos pide todos 
nuestros datos y los va metiendo en las distin- 
tas variables —lineas 30 a 80— mediante tan- 
tas instrucciones INPUT como datos queramos 
dar al ordenador. 

La segunda es la que nos saca en la panta- 
lla todos y cada uno de los datos que le he- 
mos ido dando. Vamos escribiendo la ficha por 
medio de las instrucciones PRINT de las lineas 
100 a 190. 

Observe una cosa: las Ifneas 1 00, 1 30, 1 60 
y 190 son iguales. Todas ellas lo unico que ha- 
cen es separar de una forma estetica cada uno 
de los datos. Pero si todas ellas cumplen una 
misma mision, ^para que repetirlas? 


^ La necesidad 

de las subrutinas 

La respuesta a esta pregunta es muy senci- 
lla. Aunque como hemos dicho al comenzar 
ya somos unos «diestro5» programadores, la 
verdad es que escribimos varias veces una mis- 
ma linea porque de momento «no nos queda 
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vuelta 

La ultima instruccion debera ser un coman- 
do que indique al ordenador que vuelva auto- 
mdticomente al programa principal. No olvi- 
de que se trata de un vioje de ida y vuelta. 
Basta con teclear: 

RETURN 

y estaremos de regreso. Pero, ^donde sal- 
taremos en este viaje de vuelta? Pien- 
selo un poquito. 

La ultima instruccion del programa princi- 
pal que se ha ejecutado es la que nos indico 
que debiamos ir hacio la subrutina, y esto ya 
lo hemos hecho. Luego tendremos que regre- 
sar a la linea siguiente y alli continuar con el 
programa. 

Por ejemplo, si tenemos una linea semejan- 
te a: 

130 GOSUB 1000 

una vez hayamos cumplido lo especificado en 
la rutina que comienza en la linea 1000, con 
RETURN saltaremos a la siguiente a la 130. 
El programa 2 nos dara una vision clara de 
como se produce este viaje de ida y vuelta. 


I 

1 


^ 



"V 


Hi* 


^.„i^ 





La linea 50 sacara un mensaje indicdndo- 
nos que en ese momento saltaremos a la su- 
brutina de la linea 1000. 

Cuando ya estemos en ella continuamos la 
ejecucion normolmente. Esfe subprograma nos 
sacard un amoble saludo —linea 1020— y 
cuando llegue al RETURN de la 1060 mandard 
al ordenador de vuelta al programa principal. 

Y lo hacemos a la 60 tal como nos afirma 
el PRINT contenido en dicha linea. 

Pero, de repente, nos encontramos con una 
cosa nueva: 

100 END 

iQue pinta aqui? Pruebe a quitaria y ob- 
serve que as lo que ocurre con la ejecucion del 
programa. 

Comprobara que no se detiene. Si no se uti- 
lize END el ordenador continuard el proceso 
del programa siguiendo el orden de numera- 
cion de las lineas y ejecutard de nuevo la su- 
brutina completamente hasta que llegue al fi- 
nal. -RETURN-. 

Aqui nos obsequiard con el mensaje: 

3 Unexpected RETURN in 1060 

que significa que ha encontrado un RETURN 
sin haber soltodo a una subrutina. Y asi ha si- 
do, ya que no ha habido salto sino a continua- 
cion por ella — falta la instruccion END—. 

Para evitar esto es para lo que se ha colo- 
cado la lineo 

100 END 

Y en ella termina el programa. jHo que- 
dado lo suficientemente claro? 

Pero volvomos a nuestro programa 1 . Aho- 
ra ya conocemos la manera de evitarnos te- 
clear todas las lineas que son iguales. Asi que 
imanos a la obra! 


Con y sin subrutinas 

Eche un vistazo al programa 3 y comprue- 
be las diferencias que existen entre ambos. 

A partir de la linea 1 000 hemos delimitado 
unas instrucciones de programa que von a reo- 
lizor una funcion muy concreta —en es/e ca- 
so escribir una hilera de asteriscos—. Van a 
constituir una subrutina que simplemente ten- 
ga esa mision. 

Observe tambien que hemos sustituido en 
el programa principal cada grupo de lineas 
que se repetia por una llamado a \a subruti- 
na. Y no se olvide del END. 

^No le parece que el programa ha 
quedado mucho mas claro? Ademds, en 
este caso hay muy poca diferencia entre es- 
cribir una linea de asteriscos o una indicacion 
al ordenador que salte a la subrutina, es muy 
sencilla. 

Pero imagine que en vez de una linea, fue- 
ra un largo proceso de cdlculo formado por 
miles de instrucciones. 3Se atreveria a teclearlo 
repetidas veces y sin errores? Nos imaginamos 
su respuesta; |N0, prefiero utilizar el GOSUB! 

Fijemos conceptos. Una subrutina es un pro- 
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grama dentro de otro general que solo se eje- 
cuto cuando se lo ordena el programa princi- 
pal mediante una instruccion: 

GOSUB 

de llamado a la subrutina. Cuando esta ter- 
mina de ejecutorse, devuelve el control al prin- 
cipal mediante la orden: 

RETURN 

Continuemos. Dentro de un programa prin- 
cipal puede haber mas de un grupo de instruc- 
ciones que se repitan. Cada uno de ellos rea- 
lizaria una accion concreta que se ejecutaria 
varias veces. jComo lo hariamos en este ca- 
so? 

Sencillamente formariamos con cada uno de 
estos grupos una subrutina que necesariomen- 
te llevaria como ultima instruccion RETURN 
(vuelta al programa principal). 

El programa 4 es un buen ejempio de ello. 

Observe que todas las subrutinas estdn si- 
tuadas al final del programa principal, es de- 
cir, despues de la instruccion END de la linea 
140. 

Por claridod a la hora de seguirlo, hemos 
numerado las lineas de las subrutinas comen- 
zando por un numero multiple de 1000, por 
ejempio, Es mas fdcil dirigirse a la linea 8000 
mediante: 

GOSUB 8000 

que hacerlo a la 3528: 

GOSUB 3528 

estd de acuerdo, jverdad? 

2N0S cdmite otro consejo? Es muy conve- 
niente que lo primera instruccion de la subru- 
tina sea un comentario de la funcion especifi- 
ca que reaiizo. No nos cuesto nada poner un 
oportuno: 

REM ESTO ES LA INICIALIZACION 

algo semejonte y seguro que a primera vis- 
ta ya se va haciendo una idea de que es lo 
que hace. 

Quizd le estamos insistiendo demasiado en 
que es muy conveniente que su programa sea 
claro. Nuestra opinion, como habrd podido 
comprobar en mds de una ocasion, es que 
ademds de que su programa funcione es muy 
importante que cualquier persona con unos co- 
nocimientos previos sea capaz de seguirle sin 
problemas. De ahi todas estos sugerencias que 
ayudan a que sea lo mds legible posible. 

En este caso concrete hemos desarrollado 
tres subrutinas que comienzan en las lineas 
1000, 2000 y 3000. Su unica mision va a ser 
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indicarnos mediante un mensaje que la ejecu- 
cion del programa ha pasado per ahi. Com- 
pruebelo. 


£1 programa principal 
maneia las subrutinas 

Las instrucciones comprendidas entre las li- 
neas 10 y 140 son las que forman lo que he- 
mes llamado «programa principal)). Es 
el que ordena y monda que se ejecute una su- 
brutina u otro y determine el orden en que ban 
de ejecutarse. «Es el jefe.)) 

Si ejecuta el programa 4 comprobara visual- 
mente su funcionamiento asi como el orden en 
el que se van sucediendo las instrucciones. Asi 
esta mejor, ^cierto? 

Intentemos ver como un pequefio cambio en 
el «programa principals influye en el desarrollo 
de la ejecucion. Cambie la linea 50 per: 


y la 80 por: 


50 GOSUB 2000 


80GOSUB1000 


^Que ocurrira si hacemos que el 
programa corra de nuevo? Pruebelo. 

El resultado es muy simple. Como hemos 
cambiado la colocacion de las llamadas a las 
subrutinas, el ordenador saltara a ellos en el 
mismo orden que estan las llamadas. No im- 
porta si una estd colocada delante de otra al 
final del programa, lo que manda a \a hora 
de la ejecucion es la secuencia como estdn co- 
locadas las llamadas. 

Si le queda todavio alguna duda haga la si- 
guiente comprobacion. Convierta las lineas 80 
y 110 en: 

80 GOSUB 1000 


110 GOSUB 1000 

y ejecute el programa. 

Seguimos teniendo ahora las tres subrutinas 
al final del programa, pero sin embargo, so- 
lo hemos pasado por una. Y podria haber si- 
do por cualquier otra ya que no es necesario 
que sea la primera. 

Evidentemente, no solo podemos creai^ su- 
brutinas que se encarguen de escribir un men- 
saje oigo semejante. Cada una de ellos po- 
demos aumentaria todo lo que queramos pa- 
ra que realicen una funcion concreto mds com- 
plicada que una simple instruccion PRINT. 

Si no fuese asi estariamos muy limifados y 
hemos comprado un Amstrad para algo mds 
que para utilizorlo como mdquina de escribir. 

Coda subrutina puede ser por si sola un pro- 
grama largo y complejo que vamos a tener a 
nuestra disposicion para monejarla desde el 
programa principal en el orden que sea mas 
conveniente para que obtengamos los resul- 
todos deseodos. Esto ya puede sernos de mas 
utilidad. 


Una pequefio muestra de las posibilidodes 
de manejo de subrutinas es el programa 5. 
Se trota simplemente de una sencillo colcu- 
lodora en la que podemos operor dos nume- 
ros con cada una de las operaciones motema- 
ticos bdsicas. 

Hemos desorrollado cuatro subrutinas, una 
para coda operacion, que nos hacen los cdl- 
culos necesorios y nos imprimen el resultado. 
Lo de la sumo, que es la primera, comienza 
en la linea 1000 — despues del programa 
principal— y las de la resto, multiplicacion y 
division en la 2000, 3000 y 4000 respectivo- 
mente. 

Sigdmosle. El cuerpo principal del mismo 
oborca las lineas 10 a 100. Es la zona desde 
donde se manejan convenientemente las su- 
brutinas. Aquf estordn todas las llamadas pues- 
tos en el orden necesario para que nuestra 
«herramienta» funcione como nosotros quere- 
mos. 

Hay una recogido de datos en las lineas 30 
y 40. En ellos, el ordenador nos vo a ir pidien- 
do coda uno de los operandos por medio de 
instrucciones INPUT y almocenord los valores 
que vayomos dando en las variables corres- 
pondientes. Esta primera parte ya no le pare- 
cerd nuevo puesto que es una forma de co- 
menzar que hemos utilizodo repetidas veces, 
^no es asi? 

Despues viene una serie de llamadas a cua- 
tro subrutinas. Son las que nos indicon que he- 
mos de soltar a las lineas 1000, 2000, 3000 
y 4000 respectivamente y continuar alii reoli- 
zando cada una de las cuatro operaciones mo- 
tematicos e imprimiendo los resultodos con las 
adecuodas instrucciones PRINT, (bueno selo 
indican al Amstrad). 

Al final de ellas nos encontramos con lo ins- 
truccion RETURN -lineas 1050, 2050, 3050 
y 4050— que, como seguromente ya ho su- 
puesto, es lo ultima sentencio que debe llevor 
cualquier subrutina y que nos mando de vuelto 
al programa principal. ^Entendido? 

Solomente nos queda anolizar la pregunto 
de lo linea 90. Con ella overiguomos si que- 
remos comenzor a repetir el proceso con mds 
cdlculos domos por finolizado yo nuestro 
ejercicio matemdtico. Elijo. 

Otra cosa. Los subrutinas, lo mismo que los 
bucles, pueden onidorse. Con esto queremos 
decir que podemos encontrar llamadas a una 
subrutina dentro de otro. 

No le debe extraiior. Anteriormente le he- 
mos comentado que cada una de ellos podia 
llegor o ser un programa por si mismo. Por 
tonto no es exclusivo del «cuerpo principal* el 
manejo de las subrutinas sino que podemos en- 
contramos una llomada a las mismas en cual- 
quier zona del programa. 

Y por el momento yo hemos terminado. Le 
dejomos como torea, por si tiene tiempo y go- 
nos, que onalice el funcionamiento del progra- 
ma 4 y vea como se manejan las subrutinas 
onidados. Piense donde devuelven el control 
coda una de las sentencias RETURN y jdnimo! 


PROGRAMA I 


10 REM PROGRAMA I 

20 CLS 

30 INPUT "NOMBRE: ",nombre« 

40 INPUT "ftPELLIDO: ",apeUido« 

50 INPUT "CAl LE: ".calle* 

60 INPUT "NUMERO; " , numero 

70 INPUT "POBLACION: ".poblacion* 

80 INPUT "PROVINCIA: ",provinciat 

90 CLS 

100 PR I NT "«*««****««»*««»««»*»***»* 

IK) PRINT ncmhre*;" ";rtpeUidoS 

1?<-) PRINT 

I'^Ci PR INT "****»*««**»♦«***»*»*»**»» 

140 PP1NT"CALLE "jcallei;" NUMERO"; 

numero 

150 PRINT 

160 PR I NT "«***«****«»*»«*****»***«« 

170 PRINT nob! ac\on*; " ( " ! prov] nciaS 
, „ ) „ 

180 PRINT 

190 PR INT "««**♦»»«***»«*»**»******» 


PROGRAMA 2 


10 
"iO 
30 
NC 
40 
?0 
I 
60 
70 
80 


REM PROGRAMA I I 

ri.s 

PRINT"COMENZAMnS El. PROGRAMA PRI 
I PAL" 

PRINT 

PR I NT "SALT AMOS A LA RUTINA DE LA 
I NEA 1 (■i0<'i " : GOSUB 1 000 

PRINT"VA ESTAMOS DR VUELTA" 

PRINT 

PRINT"FIN DEL PROGRAMA PRINCIPAL 


90 PRINT 

100 END 

1000 REM RUTINA NUMERO i 

1010 PRINT 

1070 PRINT" ♦**BIFNVrNIDO A LA RU 

TIMA NUMERO 1" 

1030 PRINT 

tO40 PRINT" »**FIN DF I A RUTINA N 

UMERO 1 " 

1050 PRINT 

1060 RETURN 


PROGRAMA 3 


10 REM PROGRAMA III 

20 CIS 

?0 INPUT "NOMEIRE: ".nombre* 

40 INPUT "APELLIDG: ",apellidD« 

50 INPUT "CALLE! ".calls* 

60 INPUT "NUMERO: ", numero 

70 INPUT "POBLACION: ".pobJarion* 

80 INPUT "PROVINCIA:" ",provJncia$ 

90 CLS 

100 GOSUB lOOO 

110 PRINT nombre*;" "japellido* 

120 GOSUB 1000 

130 PRINT"CALLE ";cane*;" NUMERO" 

numero 

140 GOSUB 1000 
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150 F'RINT pohl acion*; " ( " ! provin'-i ri» 

; " ) " 

160 60SUP 1000 

170 END 

1000 REM SUBRUTINA ABTERI5C0S 

1010 PRINT 

1020 PR I NT "****»****»*»»*»*»***♦*«* 

1030 RETURN 


PROGRAMA 4 


10 REM PR06RAMA IV 

20 CLS 

30 PRINT"COMENZAMOS EL PROGRAMA PRI 

NCIPAL" 

40 PRINT 

50 PR I NT "SALT AMOS A LA RUTINA DE LA 

LINE A 1000":GOSUB 1000 
60 PRINT"YA ESTAMOS DE VUELTA" 
70 PRINT 
BO PRINT"SALTAMOS A LA RUTINA DE LA 

LINE A 2000":G0SUB 2000 
90 PRINT"YA ESTAMOS DE VUELTA" 
100 PRINT 

110 PRINT"SALTAMOS A LA RUTINA DE L 
A LINEA 3000"!GOSUB 3000 
120 PR I NT "FIN DEL PROGRAMA PR I NCI PA 
L" 

130 PRINT 
140 END 

1000 REM RUTINA NUMERO 1 
1010 PRINT 

*«*BIENVENIDO A LA RU 


1020 PRINT" 

TINA NUMERO 1 

1030 PRINT" 

UMERO 1" 

1040 PRINT 

1050 RETURN 

2000 REM RUTINA NUMERO 

2010 PRINT 

2020 PRINT" 

TINA NUMERO 

2030 PRINT" 

UMERQ 2" 

2040 PRINT 

2050 RETURN 

3000 REM RUTINA NS'MERO 

3010 PRINT 

3020 PRINT" 

TINA NUMERO 

3030 PRINT" 

UMERO 3" 

3040 PRINT 

3050 RETURN 


«««FIN DE LA RUTINA N 


***BIENVENIDO A LA RU 


«*1:FIN DE LA RUTINA N 


***BIENVENIDO A LA RU 


**«FIN DE LA RUTINA N 


PROGRAMA 5 


10 REM PROGRAMA V 

20 CLS 

30 INPUT "PRIMER OPERANDO: ", primer 

Q 

40 INPUT "SEGUNDO OPERANDO: " , segun 

do 

50 60SUB 1000 

60 GOSUB 2000 

70 GOSUB 3000 

BO GQSUB 4000 

90 INPUT "MAS CALCULOS";sS 

100 IF s«""s" THEN GOTO 20 ELSE END 

1000 REM RUTINA SUMA 


1010 PRINT 

1020 suma=primero+segundo 

1030 PRINT primero; " + " ! segundo; " = " ; 

SLtma 

1040 PRINT 

1050 RETURN 

2000 REM RUTINA RESTA 

2010 PRINT 

2020 resta=primBro-segundo 

2030 PRINT primero; "-" ; segundo; "=" ; 

rest a 

2040 PRINT 

2050 RETURN 

3000 REM RUTINA MULT I PL I C AC I ON 

3010 PRINT 

3020 multiplicacion=pri mero* Begun do 

3030 PRINT primero; "*"; segundo; "="; 

mul tipl icacion 

3040 PRINT 

3050 RETURN 

4000 REM RUTINA DIVISION 

4010 PRINT 

4020 di vi sion=pr i mero/segundo 

4030 PRINT primero; "/" ; segundo; "="; 

di visi on 

4040 PRINT 

4050 RETURN 


PROGRAMA 6 


10 REM PROGRAMA VI 

20 CLS 

30 PRINT"COMENZAMOS EL PROGRAMA PRI 

NCIPAL" 

40 PRINT"SALTAMOS A LA RUTINA DE LA 

LINEA 1000"! GOSUB 1000 
SO PRINT"YA ESTAMOS DE VUELTA" 
60 PRINT"SALTAMOS A LA RUTINA DE LA 

LINEA 2000": GOSUB 200O 
70 PRINT"YA ESTAMOS DE VUELTA" 
SO PRI NT "FIN DEL PROGRAMA PRINCIPAL 

90 PRINT 

100 END 

1000 REM RUTINA NUMERO 1 

1010 PRINT 

1020 PRINT" «*BIENVENIDO A LA RUTI 

NA NUMERO 1" 

»*SALTAMOS A RUTINA 3" 


1030 PRINT" 
: GOSUB 3000 
1040 PRINT" 

NUMERO 1" 
1050 PRINT" 
ERO 1" 
1060 PRINT 
1070 RETURN 

2000 REM RUTINA NUMERO 2 
2010 PRINT 


**VOLVEMOB A LA RUTINA 
**FIN DE LA RUTINA NUM 


*«EIENVENIDO A LA RUTI 
*)t:SALTAMOS A RUTINA 3" 
««VOLVEMOS A LA RUTINA 
»*FIN DE LA RUTINA NUM 


2020 PRINT" 
NA NUMERO 2" 
2030 PRINT" 
: GOSUB 3000 
2040 PRINT" 

NUMERO 2" 
2050 PRINT" 
ERO 2" 
2060 PRINT 
2070 RETURN 

3000 REM RUTINA NUMERO 3 
3010 PRINT" ***BIENVENIDO A LA R 
UTINA NUMERO 3" 

3020 PRINT" ***:FIN DE LA RUTINA 
NUMERO 3" 
3030 RETURN 
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'ANA 
100.000 PESETAS 
CON MICROHOBBY 

AMSTRAD 

SEMANAL 


I .orque pretendemos que AMSTRAD 
SEMANAL sea lombien vuestro revista, 
hemes abierto una seccion en la que se 
publicaran los mejores programas origi- 
nales recibidos en nuestra redaccion. Vo- 
sotros sereis los encargados de realizar 
estas pdginas, en las que podreis apor- 
tar ideas y programas interesantes pa- 
ra otros lectores. 

Las condiclones son senclllas: 

— Los programas se enviaran a AMS- 
TRAD SEMANAL en una cinta de casset- 
te, sin proteccion en el software, de for- 
ma que sea posible obtener un listado de 
los mismos. 

— Cada programa debe ir acompa- 
fiado de un texlo explicative en el cual 
se incluyan: 

— Descripcidn general del programa. 
— - Tabia de subruHnas y variables uti- 

lizadas, explicando claramente la 
funcidn de cada una de ellas. 

— Instrucciones de manejo. 

— Todos estos dates deberan ir escri- 
tos a mdquina e cen letre clara para ma- 
yor comprension del pregrama. 

— Ne se admitiran programas que 
contengan caracteres de control, debi 
do a que ne sen cerrectamente interpre- 
tades per las impreseras. 

— En una sola cinta puede intreducir- 
se mds de un pregrama. 

— Una vez publicado, AMSTRAD SE- 
MANAL abenara al outer del programa 
de 15.000 a 100.000 pesetas, en cen- 
cepte de derechos de auter. 

— Les auteres de los programas selec- 
cionados para su publicacion, recibirdn 
una comunicacion escrito de elle en un 
plaze ne superior a des meses a partir 
de la fecha en que su pregrama llegue 
a nuestra redaccion. 

— AMSTRAD SEMANAL se reserve el 
dereche de publicacion e ne del pregra- 
ma. 

— Todos los programas recibidos que- 
daran en poder de AMSTRAD SEMA- 
NAL. 

— Los programas sespechosos de pla- 
gio serdn eliminades inmediatamente. 

iENVIANOS 
TU PROGRAMA! 

Adjuntando los siguientes datos: 
Nombre y apellidos,- 
direccion y teiefono. 

Indicando claramente en el sobre: 

AMSTRAD SEMANAL 

a HOBBY PRESS, S. A. La Granja, 39 
Pol. Ind. Alcobendas (Madrid) 
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Las Variables, 

Clave DE LA 
Programacion 

la semana pasada tuvimos ocasion de escribir y ejeeutar 

nuestros propios programas, hacienda usa masivo de la 

sentencia Basic mas sencilla y obvia de todas: PRINT. 



in embargo, el metodo 
de programacion escogido fue muy primitivo 
y, por tanto, muy facil de comprender. Vamos 
a intentor, poso a paso, afiadir a nuesfros pro- 
gramas un poco mas de sofisticacion, introdu- 
ciendo el CONCERTO FUNDAMENTAL DE 
VARIABLE. 

Aunque la salida, el OUTPUT, de ios pro- 
gramas que veremos no sea tal vez muy es- 
pectacular, no le quepa duda de que se avan- 
za derecho hacia la comprension del Basic. 

Los programas son 
secuenciales 

Recordemos solamente un concepto esencial 
mas: un programa Basic consiste en una se- 
cuencio de instrucciones agrupadas en li'neas, 
cada una etiquetoda con su correspondiente 
numero. 

Para introducir una en el programa, basfa 
con escribir el numero de linea que deseemos 
que tenga, seguido de las apropiadas 
PALABRAS-CLAVE (comandos) de Basic y pul- 
sar (ENTER). 

Para ver todas las instrucciones del progra- 
ma: 

LIST (ENTER) 

Para ejecutarlo: 

RUN (ENTER) 

Y, por fin, para deshacernos de el y limpiar 
la memoria antes de introducir un nuevo pro- 
grama: 

NEW (ENTER) 

Echemos una mirada al programa numero 
1, nuestro viejo conocido. Bien, el programa 
numero 2 es otra forma de obtener la misma 
salida por pantalla de manera mucho mds ele- 
gante. 


Como ya sabemos, las palabras entrocomi- 
lladas se denominan STRINGS, palabra ingle- 
sa que estimamos preferible a la traduccion 
espanola «tiras», aunque hablar de tiros de ca- 
racteres recuerda como el Amstrad las in- 
terpreto, esfo es, de forma serial. Para el or- 
denodor, CASA es la serie de caracteres C, A, 
S,A. Nunco son tratados, aunque a nosotros 
nos porezca lo contrario al verlo impreso en 
la pantalla, como un todo. 

Logicamente, nos puede interesar escribir 
una misma frase entrecomillada muchas veces 
a lo largo de una aplicacion. 

Por ejempio, en una carta de negocios hay 
frases casi standard, que se repiten a menu- 
do en esa misma carta o en ofras. 

Las variables 

ahorran esfuerzo y 

espacio 

El Amstrad resuelve el problema asigna- 
do a coda cadena una etiqueta, de forma que 
cl «invocarla» en un programa, la cadena de 
caracteres correspondiente aparece en la pan- 
talla. 

Asi, en la lineo 10 del programa numero 2, 
la etiqueta «A$», se asigna a la cadena PRO- 
GRAMAR, de tal forma que cuando el or- 
denador se encuentra con la li'nea 40 del pro- 
grama; 

40 PRINT A$ 

la palabra PROGRAMAR aparece en la 
pantalla. 

La ventaja de esto tecnica es la gran canti- 
dod de espacio de memoria del ordenador y 
de esfuerzo nuestro que se ahorro al escribir 
Ios programas. 

En efecto, basta pensar por un momento en 
que la palabra representado por A$ tuviera 
que aparecer 100 veces en la salida del pro- 
grama por pantalla. 

Analogamente hacemos con las lineas 20 y 
30 del programa 2; estos causon la salida por 
pantalla deseado cuando se ejecutan las li'neas 
50 y 60. 

En este momento, fiay que hocer notas Ios 
siguientes puntos: 


1 . Memos elegido las etiquetas de modo tal 
que todas comienzan por una letra y von se- 
guidas del signo «$». 

No estamos obligados a usar una sola le- 
tra, podemos poner mas, pero SI HAY QUE 
PONER EL SIGNO «$», para avisar al orde- 
nador de que queremos etiquetor una cade- 
na de caracteres (veremos posferiormente co- 
mo etiquetor otro tipo de «cosos»j. 

2. El hecho de que en el programa 2 las 
etiquetas se encuentren en orden alfabetico es 
compietomente orbitrario. NO TIENE POR 
QUE SEGUIR NINGUN TIPO DE ORDEN. 

3. Aunque hemos usodo un signo « = » pa- 
ra relacionar etiqueta con objeto, su signifi- 
cado no debe entenderse como «igual a...», 
sino mas bien como «asignada a A$ la code- 
no entrecomillada que viene despues del sig- 
no = ». 

4. La etiqueta debe estar en la parte iz- 
quierdo de la SENTENCIA DE ASIGNACION 
(que osise Homo), y lo que se nombro en la 
parte derecho del signo igual. 

Pruebese si no, con la sentencia; 

10«PROGRAMAR»=A$ 
y yo se vera lo que ocurre. El pobre Amstrad 
ni se entera de lo que queremos decirle. 

5. La etiqueta reemplozo a la palabra en- 
trecomillada y a las propias comillas, ya que, 
al decir; 

40 PRINT A$ 
las comillas no aparecen. 

6. El ordenador no distingue entre moyus- 
culos y minusculas en el caso de nombres de 
etiquetas. En lo que a el respecto, Ios progra- 
mas 2 y 3 son identicos y producen el mismo 
resultado. 

Esto, que puede parecer obvio, depende del 
ordenador del que se trate. Otros maquinas 
son muy rigidas en ello. 


PftOGRAMAS 

5 

REM PROGRAMA II 

10 

A»>- "PROGRAMAR" 

20 

B«="ES" 

30 

C»="FACIL" 

40 

PRINT A* 

50 

PRINT B» 

60 

PRINT C« 

5 REM PROGRAMA I I I 

10 

A*="PR0GRAMAR" 

?0 

BI^"ES" 

30 

C« "FACIL" 

40 

PRINT a* 

50 

PRINT b» 

60 

PRINT c« 
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WAR GAME de estrategia que reune todos los condimentos necesarios para hacer 
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eligencia, emocion, sorpresa y realismo. 


aeracio 



dirigir la CampanaJ 
del X)eslerto y 
derrotar a Rommel 
antes de tjjue loj— I— i 


hicierd el General 
Montgomery en-^l 
Alamein? , 

T I T I t ! 


Disponibie para 

M I I I I i ' '4 


Spectrum 


Amstrad 
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Ajuste por 

MiNIMOS 
CUADRADOS 


Programa realizado por el lector: 
Jose de la Torre Moreno 


Todo el mundo sabe que un ordenador es la mejor 

calculadora del mundo, y que, adetnas, permite 

hacer muchas mas cosas «extras», incluso en el caso 

de una tarea tan compleja y tediosa de calcular 

como el ajuste de datos experimentales por el 

metodo de minimos cuadrados. 


NUS, en donde se especifican las op- 
ciones disponibles, lo cual hace las 
INSTRUCCIONES de manejo innece- 
sarias. 

Las opciones incluidas son las mds 
«inmediatas»; pero el programa es- 
td estructurado de forma que se pue- 
do ampliar todo lo que la imogina- 
cion y las necesidades que coda uno 
exijan. 



unque el 
titulo puedo sonar a «chino» a los 
profanes en el mundo de las Mate- 
mdticas ovanzados, no es necesario 
ni muchisimo menos conocer la teo- 
rfo correspondiente para compren- 
der intuitivamente la utilidad del pro- 
grama (si bien esta pensado para ser 
ufil a esfudianfes de un nivel de esfu- 
dio medio-alto). 

Muchos nos hemos encontrodo 
mds de una vez con una serie mds o 
menos extensa de puntos (recorde- 
mos: parejas de valores [x, y}) que, 
dibujados en sus correspondientes 
ejes, pareci'an ajustarse en mayor o 
menor grodo a una RECTA. Pues 
bien, el programa obtiene la ecua- 
cion de esa recta que se ajusta lo me- 
jor posible a esos puntos. 

En realidad, el programa es algo 
mds que el simple cdlculo de lo ecua- 
cion, pues con ella, podemos reali- 
zar mds cosas, a lo completa eleccion 
del usuario, tales como obtener orf- 
genes, obtener imdgenes, represen- 
tor los puntos y lo recta..., y todo con 
la comodidod propio del «trabajo 
hecho por el ordenador»: solo hay 
que apretar la teclo de opcion elegi- 
do. 

El programa funciona con dos ME- 
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Li'neas y 
letra del menu 

120-190 


210 A 
230-370 B 


390-610 C 

630-800 D 

820-1000 E 
1040-1120 
1140-1520 F 

1540-1650 1 

1670-1790 J 
1810-1940 K 
1960-2070 L 


2090-2160 M 
2180-2240 G 
2260-2310 

2330-2550 


2570-2860 
2890-3130 H 


Funcion 

Constituye el programa principal que gobierna el Menu Principal. 
Dirige la occion o coda una de las subrutinos incluidas en el 
menu. 

Fin del programa. Restaura el ordenador a sus colores originales. 

Opcion de introducir puntos. Se piden per parejas de valores 
separados por una coma. La primera vez que se accede a esta 
opcion, es directo. Las demos se pregunta previamente por la 
nofuroleza de los puntos que se van a introducir. (Ver Subrutina 
2830) 

Permite corregir los puntos previamente introducidos. Se introduce 
el n.° y las coordenadas del punto correctas, separados por una 
coma. El punto n.° «0» sole de la opcion. 

Salva el fichero en cinta. El fichero se «etiqueta» con un numero. 
La opcion se puede concelar pulsando «0» o simplemente 
pulsando (ENTER). 

Cargo un fichero desde cinta llamando al n.° con que se 
etiqueto. «0» o ENTER cancelan la operacion de cargo. 

Constituye el programa secundario que gobierna el Menu 
Secundario. 

Es la parte central de todo el PROGRAMA. Se encarga de 
procesor todos los puntos introducidos y obtener la ecuacion 
te6rica que mas se ajuste a la distribucion de los mismos. Calcula 
tombien los errores de los coeficientes y el coeficiente de 
correlacion que do idea de la bondod del ajuste. 

Calcula las imagenes teoricos de los puntos experimentales 
mediante la ecuacion obtenida, y las comparo con las 
introducidas, mostrando la diferencia de ombos. 

Obtener imagenes. Permite al usuario obtener todas las imdgenes 
TEORICAS que necesite, usando la ecuacion obtenido. 

Obtener on'genes. El usuario obtiene los origenes TEORICOS de 
los valores introducidos. 

Muestra en pantolla los valores de todos los parametros usodos 
en el colculo de la ecuacion, tales como la Sumatoria de los X, 
Sumatoria de los Y, etc., asi como el numero de puntos 
introducidos y la Ecuacion obtenido. 

Es la caratulo del Menu Principal. 

Es la caratulo del Menu Secundario. 

Espero a que se pulse «M» para volver al menu correspondiente 
desde cualquiera de los operociones. 

Pregunta si los puntos que se van a introducir pertenecen a la 
misma recta (en cuyo coso dimensiono una nueva matriz y se 
introducen los nuevos puntos), o bien si pertenecen a un 
problemo diferente, con lo que se borran todos los puntos 
introducidos previamente. 

Inicio del programa. Gobierna la caratulo iniciol. 

Es la representocion Grafico tanto de los puntos experiementales 
introducidos, como de la recta que corresponde a la ecuacion 
teorico calculada previamente. Muestra los valores de los 
extremes de los ejes que corresponden a lo zona donde se 
encuentron los puntos experimentales introducidos. 


SerieOtS 


OOSE DE 1 A TORRE MORENO 
C/ CARRERA SB 


9 DEF FNy( 

10 ' 
20 ' 
30 ' 
40 • 
f/0 ' 
60 ' 
70 • 


RERA SSCALOUNA< 

:<) a»x+h I 

A.IUSTE por" 

MINIMOS CUADRADOS 

A LA RECTA 


\ 


80 DIM p< 1) : DIM pc !I ) 

90 GOSUB 2570: ' inicio 

100 GOSUB ?090: ' (n»nu prlncipa 

110 • -== PROGRAMA PRINCIPAL --- 
120 a»="abcdefg" 
130 tt-INKEY» 

140 IF t»-"' I'iti: -zrr 

150 t»-LOWERS<t») 

liO t-INSTR<a».t») 

170 IF t-0 THEN 130 

IBO ON t QOBUB 210, 230, |90, 630, 820, 

1140,1020 I 

190 GOTO 130 I 

200 ' ---FIN »" ' 

210 MODE :: BORDE'^ 1: :NK 0,1: PARE 

R 0: CLS: INK 1,24: PEN 1: ERASE p! 

END 
220 ' INTRODUCCION DE PUNTOS — 

230 MODE 2: BORDER 0: PttN 1 

240 WINDOW «1. 1.80,6,23: PAPER »1,0 

; PEN Itl. 1 

250 WINDOW »?. 1.80. 1,5: fFN #0,1 

2i0 w-w+1: IF i.j>'2 THEN GOSUB 2330: 

RETURN 
270 ERASE p: ERASE pc 
280 LOCATE 20,2: PRINT 3TRING«<36," 

290 LOCATE 20.1: INPUT "NUMERO DE P 

UNTOS (miriimo 3) ? ",n 

300 IF n<3 THEN LOCATE -?, i ; PRINT ' 

GOTO 290 

310 DIM p<p.2): DIM pc(q.2) 
320 PRINT: PRINT: PRINT TAB<32);"Pu 
nto (x,y)": PRINT TAB<:^1);: PRINT 
STRING»<14, "-") 
330 FOR 1-1 TO n 
340 PRINT •! , TAB(31) ; i ; 1 
.- ", p<l, I) .r. (1 ,2) 
330 NEXT 
360 GOSUB 2090 
370 RETURN 

-^80 • ^=- COMPROBAR / CC(-:REGIR PUNT 
OS "—"^ 

390 MODE 21 BORDER O J 
400 WINDOW #1.1,80,23.2*1 
^10 WINDOW #'">. 1 .pfn,4". IT: rTrl StTT" 
-42t>--«lNDDU »i. 1,80, 1 , 3: PEN tl2. 1 
430 LOCATE tt?.3r, 1: PRIhjjT #2," Tu 
puntos: " : LOCATE #2,3^,2: PRINT 
2,STRINH»<13. "-'■) 
440 FOR i-i TO n 
450 PRINT #0,TAB(30); i; 
.1) ". " p< J, 2) ■•) '■ 
460 NEyT ' i 

470 I nCATE '«] ,20. 1:PAPER 
l.ci: PRINT #l.CHRt<174) 
rreqir alqu/i punto'^ <to/ 
4S0 t» -INl-ev» 
490 IF t» "" THFN 480 
50ri ti LDWERt<t*) 
510 IF t'f'-"s" AND t«;<>" 
S20 IF t»-"n- THEN Pffl 
GOSUB 2090-. RETURN 
330 LOCATE '#1,5. 1 : PRINT 
be numero V coordenadas 

< 0,0.0 ) PARA TERMINAR 
1,0: PEN tu, I 
540 FOR 1-1 TO nHO 
,J^0 LO'-AT! v\ ,-:(i ,-■'■■ f'.AIi 
<50) 

560 LOCATE #1.30,3: INPU 
, 1) ,pcU .2) 
370 IF k>n THEN 350 
580 IF t;=0 THEN GOSUB 20 
590 p(t-, 1) «pt:<l , 1) : p(l- . 


INPUT #1, " 


<" p(i 


Itl ,?.:PCN » 
Quieres na 


#1," Escri 
nt'r ec tas. 
": PAPER # 


"--'-^""■-* 


«1 , I'.pc (I 


0: RETURN 
)-=pc (k,7) 
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1 TO 4: FKI 
: "C A M C C 
1000, ?0, 7: FDR r 
GOSUB 2090: RFTU 


600 NEXT 

610 GOSUB 2090! RETURN 

620 ' ==- SflLVflR FTTHFRO EM CIMTA - 

6T0 HDDE 1: BORDER 1: F'EN 1 
640 lOCftTE 3.24: PftPER 3: PEN 2: PR- 
INT "Pulsa - O - para volver al M 
ENU": PAPER 0:PEN 1 
630 LOCATE 6,2: PRINT "S A L V i( R 

F I C H E R O"! PRINT: PRINT TA 
P(6): STRINPt (29, "«") 
660 PRINT: PRINT: PRINT 
670 INPUT " NUMKRO 

" : my. 
6B0 IF mV.=0 THEN FOR pr 
NT: NEXT: PRINT TAB ( 1 1) 

L A D O": SOUND 1 
e»l TO 2000: NEXT; 
RN 

690 LOCATE 1,74: PRINT '3rACE'KJ9) : 
1 OCATF 1,13 
700 nt-STRT (my.) 
710 OPENOUT nt 
720 PRINT #9, n» 
730 PRINT (19 _n 
710 FOR 1=1 TO n 
750 PRINT «9, p(i , 1) ,r(l .7) 
760 NEXT 
770 CLOSEOUT 

780 CLS: LOCATE 1?,1S: PRINT "Fiche 
ro Salv«dD":FOR re-l TO 1500: NEXT 
790 GOSUB 2090 
BOO RETURN 

aiO • ■== CARBAR FICHFRQ DESDE CINT 
A ...M 

S20 MODE 1 : BORDER 1 : PEN 1 
B30 LOCATE 3.24: PAPER 3: PEN 2: PR 
TNT "Pill '^rf - o [irtr a vol vf r al M 
FNIJ": PAPi-R 0:PEM 1 
R4d I OPATP 6.2: PRINT "C A R S A R 

F I C H E R 0":PRINT : PRINT TA 
B(6) ; STRING»(r9. '*") 
nso PRINT: PRINT: PRINT 
ii60 INPUT " NUMCRO dc! < ) chero 

" ; my. 
P70 IF my.-^O THEN FOR |)r 1 TO 4 : PR I 
MT: NEXT: PRINT 'AB(I1):^'C A N C E 
I A D O": SOUND 1.1000,20.7: FOR re 
= 1 TO roilo: NEXT: SOSUB 7090: RETUR 
N 

SBO lOCATF 1.24: cRjnt SPACE* (39); 
LOCATE 1,13 
e90 n»-STR»(my.) 
90O ERASE p: OPEN IN n» 
=10 INPUT «9. n1 
970 INPUT tt9, n; DIM p(n.2) 
930 FOR ) - 1 TO II ; 


940 INPUT tt9. 
950 NEXT .^ 


p(i 


960 CLOSE IN 

970 CLS: LOCATE 12|15: PRINT "Fiche 

ro Carciado":FDR refl TO 1500: NEXT 

980 w=l 

990 GOSUP 2090 

1000 RETURN 

1010 • MENU SE UNDARID === 

1020 GOSUB 2180 

1030 ' ==■= PROGRANj SECUNDARIO = = 

1040 ht="ahl jl;lm" 

1050 v«»I»'EYS 


1070 v»-l OWFRt (v») 
1O80 v=INSTR(bt,v< 
1090 IF vo THEN 1 
1 1 00 ON V RQSUB ? 1 
1810, 1960,2090 
1110 IF v=7 THEN G 
1 120 GOTO 1050 
1130 ■ CAI CUI 

1 140 MODE 2: BORDi-' 
1 150 sx=0; sv=0: i 
O: svm=0: ^c'.<m=0: 


1 160 


Calc 


I 17" FOR j =1 TO n 

1 180 sv.is>c+p (1,1) 

■;;'2="=-:7*i)(i , 1 ) '•7 

(1,7) 

1 190 NFXT 

1200 r"ix-s:"~2 : r- 

: vm sv/n 

I710 FOR ] 1 TO n 

1220 '5>:m"S:<m+ (p ( i 

fiiTi-ifmi I tru 


-^ 


1230 scym^scym+ <p < 
-sxym+ <p <i , I ) ~xm) * 


) .p C: ,:>) 


tf-0 
,7890, 1S40, 1670, 

ITO 120 

DE I A ECUACIGN = 

0: PEN 1 
r;~0: sxy-O: %y.m- 
rvm-O: s: vm-0 


1 o^ previos 


sy-sy+p C 1 , 2) : 
=i;ty=:s:-;y+p (i , 1 ) *p 


1 ~:<m) : sym=symi 


2)-ym)^2 : sxym 
p (i , 2)-ym) 
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1240 NEXT 
1250 ■ 


Calculo de las rairps 


;2/ Cn t ^_ " 


i2ta -'l- ic'.-i"/ '.'I 2) : 

^<3"> ; r~ -n ^ ''^*s::''-c^='! ) 

1270 IF r! O OP f-2 OP r3-0 THEN B 

nrn i 400 

17P0 ■ Palriilti de 1 os Coefiti 

pir\i-r^K, 

1290 sav=snp<rl) : sqb 5qv«S0R(r7) 

: sqa-^av*SOR (r3) 

1300 a (n*s:'.v-?i<*i.v) / (n**:;2~cs'.< ) : 

h (5v?t^v-sv,y«=,'. ) / !n*s.;2-r.'3x ) 

13)0 r4-Gt::<m«5(.vm ; IF r4r0 GOTO 14 

90 

1320 r-5vym/S0R(r41 

1730 ' Rosultados 

1340 ri S 

1350 I OCATE 28.1: PRINT "Nymero de 

PLintos: ":n 

1360 I OCATE 28.2: PRINT PTRING»(8.13 

. "t") 

1370 1 OCATE 3,6: PRINT "Coe-f 1 ci pnte 

A - ";« 
13B0 LOCATE 45,6:PRINT "Coeficient 
e B - "!h 

1390 LOCATE 3, B! PRINT CHR»(185)!"A 
= ":sga 


*f*KS13ltMi. 


1400 1 OCATE 45.8:PR1NT CHR'K1B5);"B 

^ " : ^qb 
1410 LOCATF 17,15; PRINT "Coeficien 
te de correlacion: r =";r 
1420 IF b^=0 THFN signo-43 ELSE sig 
no-45 

1430 LOCATE 16,21: PRINT "La recta 
es: y - ";a;" x " ; CHR* (si gno) : AP 
S(b) 

1440 LOCATF 16, 20: PRINT STRINQ»(14 
, "^") ; :PRINT " " ; : PRINT STRtNGt(3 
3, " -") 

1450 LOCATE 16,22: PRINT STRING* (14 
."-•'):: PRINT ■' ":: PRINT STRING* (3 
3. ■' = ") 

I460 REM DEF rNy(;r) a*x+b 
1470 GOTO 1510 
1480 " PosibJes errores 

1490 LOCATE 30,12: PRINT "HAY UNA R 

A12 NEGATIVA" 

1500 LOCATC 40,13: PRINT "o": LOCAT 

E 30.14: PRINT "UNA DIVISION POR CE 

RO" 

)5Ki GOSUB 2260 J 

1520 RETURN *' 

15^0 • --i rOMPARAR DATOS EXPERIMEN 

TALES CON TEQRICDS '=' 


Tabla de Variables Usadas 


p 

Pc 

q 

m% 


op 


a$ 
t$, t 
b$ 

v$, V 
n$ 
x$ 

y$ 

e$, i$ 
1$ 

i, j, k, g, re, pr 

exi, ex2 

xmax, ymax, xmin, ymin 

sx, sy, sx^, sxy, sxm, sym, 

scxm, scym, sxym, csx, csy, 

xm, ym 


Matriz principal. En ella se almacenan los puntos que 

se introducen. 

Matriz auxiliar. En ella se realizan las correcciones 6e 

los puntos. 

Matriz de trobojo. Con ella se oriJenon los puntos en la 

opcion de representacion grafico, y hace de puente 

para poder ampliar la dimension de P cuando se 

desean introducir nuevos puntos en la misma recta. 

Es el numero de puntos que se desean ogregar al 

problemo en curso. Sirve para ampliar la dimension de 

P. 

Numero de la «Etiqueta» del fichero que se desea 

creor o cargar. 

Contador que gobierno la introduccion de puntos, 

presentandonos cuando es necesario la pregunta de si 

los puntos pertenecen a la misma recta con la que 

estamos trabojando o bien se trata de un problema 

nuevo. 

Sirve para seleccionar el programa Principal (case de 

que accedamos desde sus opciones) o al programa 

Secundario (si accedemos desde una de sus opciones). 

Se encuentra en la subrutina de «Espera». 

Numero de puntos introducidos. Constituye la 

dimension de P. 

Contiene las opciones del menu principal. 

Opcion seleccionada en el Menu Principal. 

Contiene las opciones del Menu Secundario. 

Opcion seleccionada en el Menu Secundario. 

Valor literal de m%. Es la etiqueta de los ficheros. 

Origen introducido en la opcion obtener imagenes. Se 

calcula su Imogen medionte la funcion FNy(x). 

Imogen introducido en la opcion obtener origenes. Se 

calcula su origen mediante la funcion FNx(y). 

Usadas como INKEY$, esperon a que se pulse una 

tecla. 

Letra de los datas, usadas para la caratuio de 

presentacion. 

Submdices de uso general. 

Extremos de la recta teorica dibujado. 

Exfremos de los ejes de la representacion grafica. 

Calculos para la obtencion de la ecuacion ajustada a 

los puntos experimentales. 



4Ci MnnF -■■ PDRDFR 
IF-iO WINPnw Ito, l.^^O.I,""?: PfM SO,! 
J',b<' WINrnw Itl , 1 .BO, 1 , ■'.: FrtPFR It 1 , C 
: F EN t( 1 . 1 
1";70 FRIMT U< .JMH??i); "^ ■ ";a:" 

": CHRt ("Jicjnn) :fttlS(b) 
ISBCi PAPER (tl,l: PFN It 1 , Ci 
1590 LOCATE HI, 1,2: PRINT HI," X e 
xperl mental " ; SPC(5); "Y experiment 
al"; SPC<7): "Y teoriqa"; SPC(IO); 
"Di -f erenci a " 
1600 FOR i"l TO n 
1610 LOCATE ttn,7,i: PRINT USING "»«l 

asa.««4n,": p.i.it: i r--A-F ■'7.,. z-r,} 

NT LIPING "tiHttHtt. HUtlil". c 'i."-): \orfi 

re 11.1 : PRINT li=;INR " « BltStl . StllttHtUlt 

«"! FNy(p(i.l>): l.OC(^TE tO,j: r R I NT 

USING •■(tttttfllt. (!««««««»■'; Friy(p<i,l) 

)-o(i ,r) 

lA?!"! NrxT 

IfZC^ LOCATC ttO,~",ri: Fnl -ER tH\l: p 

FN KO.Li: PRIMT ll>i." M vuflvi- il MFN 

U ": PAPER ItO.fi: PFN «0, 1 

1A40 GOSUP ?r70 

IftfjC RETURN 

1660 ■ '-": OBTENFR IMAWNtS 

1670 MODE 2: BORDER 0: PEN 1 

1680 PRINT TAB(?S) "v - " ; a; " i. " 

; CHR»(31gno) -.APSIb) : PRINT TAB(25) 

; STRING* CJ", " = ") 

1690 PRINT SPC(''9); "X": SPC(19I "Y 

1700 LOCATE 7"^:. 4: PRINT =;TR INEt ("", 

CHR«(210)); FOR t-~ TO 2"': LOCATE 4 

2,t: PRINT CHRtd-.fi): NEXT 

1710 LOCATE 23.25: PAPER 1: PEN 0: 

PRIN1 " Pulsa M + ^ENTER> para t 

ermirrar ": PAPER 0: PEN l| 

1770 1*0 I 

1730.,j-j + l i 

1740--L0CATE 23, )+7j: INPUT "^ ".x* 

1750 ilF x»="" THEN 177.0 

1760 'IF ;:l.-"m" OR •/.*="»" THEN BOSUB 

2180: RETURN 
1770 :-.VAL (xt) 

1780 lOCA-E 15. 1*5: PRIJ-IT fNy C,i^^_ 
■ 790 l^OTO r7r-0 -^^^ 

1800,' -- OBTENER ORIGENES -=- 
laiOflDDE 2: BORDER 0: PEg 1 
lB20lriEF FNk <y)='<y-b)/a 
le^olrRINT TAB(25) "y = 
CHRt|signo): ABS(b); PRIN 

STRifJGt<3r., "-") 

PRINT SPC(29) "X" SP 


LOCATE 25,4: PRINT 9fRINGt(37. 
;iO) ) : FOR t=3 TO 23. 
PRINT CHRt( 13B) : NEX 
I OCATE ?3,2fj: PAPFR 


r ": PAPER O: PEN 1 

-0 

-j + 1 

OCATE 15, 1+5: INPUT 
IF y»- '■" THEN 1890 
IF yt="m" OR vt="M" ^IFN GDSUP 
RETURN 

'VAL<v«) 

OCATE 25, i+5: PRINT^Nx(y) 
?DTn 1B80 

'== .ESCRIBIR CALP 


mmam 

I960 
1970 
er i mi 
1980 
: "X 
HR*< 
1990 


10DE 2: BORDER O: PE 
OCATE 19. 1: PRINT "I 
tales introducidos: 

■PINT: PRINT TAB(30) 
"!»sx: PRINT: PRINT 

'0) : "y ="; sy 

•PINT: PRINT TAB(30) 
=": sx7 

PfrlNI: PKINI lf>u<J.ol 
;sKy: PRINT: PRU 

HR« ( 1 90 ) ; " X ) "2 * " : . 

PFIfIT: k rnir 


r . :("jLt:-':jiyroir^ii i 

ECJcrf "Media de >; 
202C PRINT: PRINT TAB (30) 
y ■'; ym: PRINT: PRINT 


2030 
»(3: 
204 

"y 

b) 

2O50 

'■) 


2070 
70B0 
7090 


PRINT: PRINT TAB (; 

PRINT "L4i recta es 
'; a: " x ": CHRt<si 

PRINT TAB (24) : STR 


ETURN 

MENU PRINCIPAL 

►1DDE 1: INK 0,0: INh' 


TABCS) ; 


(19) 


1 

intos exp 


;HRt ( 190) 
rAB(30) C 


IHRt ( 190) 


CHK» 1 1 91.1 1 
TAB (30) 


"Media de 
Ae(30) "r 


SPC(IO) 
no); ABS( 


NSS(33, "= 


1 , 26 : I NK 


2,6,20: INC 3, 16 
SKiO BORDER 6: PAPER O: CLS 
2110 LOCATE 13,21 PEN 3: PRINT "MEN 
II PRINCIPAl ": LOCATE 13,3: PRINT ST 
RINBt( 11, "--■■) 
2120 LOCATE 1,6: PEN 3: PRINT " A. 

- ":: PEN 1: PRINT "Fin,": PRINT: P 
RINT: PEN 7: PRINT " B.- ";: PEN 1 
: PRINT "Introducir puntos.": PRINT 
: PFN 3: PRINT " C- ":: PEN 1: PR 
INT "Comprobar / Corregir puntos.": 

PRINT: PEN 3 
7130 PRINT " D.- ";: PEN 1: PRINT 
"Salvar fichera en cinta.": PRINT: 
PEN 3: PRINT " F.- ":: PEN 1: PRIN 
T "C^rciAr ^ichpro desde cinta.": PR 
INT; PFN 3 

2140 PRINT " F.- ";: FEN I: PRINT 
"Obtener Ecuacion.": PRINT: PRINT: 
PEN J: PRINT " R.- ';; FEN 1: PRIN 
T "Accede a MENU secundario." 
21'"iO LOCATE 17,21: PFM 2: PRINT "» 
El 1 je Opcion «" : np - 1 
2160 RETURN 

2170 ' -=■" MENU SECUNDARIO ^-"= 
7 ISO MODE 1; BORDER 6 
2190 LOCATE 13,2: PEN 3: PRINT "MEN 
U SECUNDARIO": LOCATE 13.3: PRINT S 
TRINGtdS, "-") 
2200 LOCATE 1,6: PEN 3: PRINT " A. 

- ";; PEN 1: PRINT "Fin.": PRINT: P 
RINT: PEN 3: PRINT " H.- ";: PEN 1 
: F'RINT "Represent aci on Gra^ica."; 
PRINT: PEN 3: PRINT " I.- ":: PEN 
1: PRINT "Cnmparar datos Experim./T 
eoricos. ": PRINT: PEN 3 

2210 PRINT " J.- ";; F'EN 1: PRINT 
"Obtener Imagenes."; PRINT : PEN 3; 
PRINT " K.- ";; PEN 1: PRINT "Obt 
etler Ori genes."; PRINT: PEN 3: PRIN 
T ^' L.- ";: PEN 1: PRINT "Obtener 
caJcLilos internes.": PRINT 
22F0 PRINT: PRINT: PEN 3: PRINT " 
M.- ";: PEN 1: PRINT "Vuelve al MEN 
U Pr inci pal . " 
^i'o I nCOTE 12.74: PFN 2: PR! 
Elije Ope i On «"r Op-O 
2^40 RETURN 

2250 ' -=- ESPERA -'= ,' 
2260 LOCATE 30,25: PAFffR 1: 

INT " M vuelve al MENU 
PEN 1 

70 et=INlfEY» 

BO IF et-"" THEN 22^ 

PO IF et<>"m" AND 


Serie 


Oro 


MRN 
I P 

fro 


00 IF op 1 THEN GDSI.li 2090 E[.SE G 
OiJUB 7180 
■yr.lO PETURW" 
;i20 ' --= PROBLEMA N4 
Q.DE ANTES 
2f30 MODE 2 
^40 LOCATE 22.8: PR It 
aiie \/as a intraducir 
2'JSO LOCATE 18,12: PR IT 
la MISMA RECTi 

to LOCATE 18, 14: PR IT 
pfablema DIFEREMTE - 
70 LOCATE 30,21: PAF^R 


2 30 j«-INt'EY« 

90 IF j«'"" THEN 2^ 
30 IF j»<>"l" AND j 


mr 


"°- ■■■ 


" 1 " THEN 2 
"2" THEN w^ 


10 IF J«= 
20 IF jt= 

TURN 

;0 LOCATE 18,11: PR 


O^TE 20,21: 
:'Lintos vas 
"P.g 
^440 


PRINT CHF 
a agregai 


24%0 DIM q (n+ag,2) 
24r.O FOR i^l TO n: q( 
iXjZ) p(i,2): NEXT 
2#^0 PRINT TAB(32);"Pi 
NT TAB(31)! STRINGS 


BO FOR i=n+l TO n+a 
PO PRINT TAB(31) ; i 

, 1 ) ,q(i .2) 
t'O NEXT 

Jo n-n+ag: ERASE p: 
gin, 2) : DIM pc(n,2) 
»V7" •''V . -1 T^ •, -■ 
2- .0 ;i(i , 1) q(i , S) : p' 
N^<T: ERASE q 
2*10 GOSUB 2090 


PEN O: 
: PAPER 


>"M" THEN 22 


2550 RETURN 

7560 ■ =^^ INICIO 

7570 MODF O 

2380 RESTORE 

7590 BORDER 7: INK 0,13: INI' 1,0: 1' 

W 2.13: INK 3,6: INK 1,2,9: SPEED 

INK 25,25: PAPER O: CLS: PFN 1 

260O FOR 1 o TO 11: READ 1» 

2610 FOR J 20 TO i+S STEP -1 

7670 1 OCATF ),5: PRINT 1»" " 

2630 NEXT: SOUND 1 . 650-10« i , 7, 7: NF 

XT 

7610 POP i-o TO 17; READ 11 

2650 FOR J -21 TO 8 STEP -I 

2660 LOCATE 1+2, j: PRINT l«i LOCATE 

1+2, j + I: PRINT '• " 
2670 NEXT: SOUND 1 , 100-3»i , 1 , 7i 
T 

2680 FOR 1-0 TO 9: READ H 
2690 FOR j-1 TO 11-1 
2700 LOCATE j,ll: PRINT " "It 
2710 NEXT: SOUND 1 , 7.SO-3*i , 2, 7: 
T 

2720 PEN 7 
773n :l nCATF 1 .25 
7740 PRINT "v a:; " ; CHRt ( 1 71 ) : "b" 
7750 FOR 1-0 TO 19', STEP 
7760 FOR j TO 16 

2770 IF TESTd.j) THEN PLOT 220+1. 
30+j»4,3: PLOT 220+1 , 1 37+ j »4, 3 
2780 NEXT 
2790 NEXT 

2BO0 LOCATE 1,25; PRINT SPACEt(19) 
2810 LOCATE 1,24; PEN 1: PRINT CHRt 
(164) "1985 J. DE LA TORRE": ENV 1, 
15,-1,10: SOUND 1.300,0,15,1 
2820 FOR i-1 TO 30p0: NEXT: 
2B30 ' 

2810 DATA A.J,U,S,T,E, , , 
7.1-.0 DATA .«.I,N,1,M,0,5. , 
,R,A,D,0,S 
2860 DATA A,T,C,F,^, ,A,L, 


NEX 


NEX 


, 1 


RETURN 


, P , , R 
,P,U, A.D 


2870 


==^ REPRFSFiaTACION 6RAFICA 


Ilia 

0: PEN 1: ORIGI 


RAW 30,20: DRAW 


f(AWR 0,6: MOVE 2 


VO El MISM 


"Los puntos 

"per tenece 
. . ( 1 ) •^ " 
"o a Dtro 
. . (2) '" 
1 : PEN O: 
"= PAPER 


im& 


7880 • Cfl 

7890 MODE 2: EORDEI 
>• N 0,0 

2900 PLOT 30.399: 

639,20 

7910 MOVER -1.-3; 

7.398: DRAWR 6,0 

i22oj_ocriTt .:ui.-i'#iNi_:'.4j 

7,-1:- pRiMV ■■•<.■'. LOIATe 4,'2T 
"1": LOCATE 79,25i PPINT"2" 
7930 DIM q(n,2): F4-: i-l TO n: q(i 

l)-p(i , 1) : q(l ,7)-|' "' 

7940 FOR g-1 TO 2 
2950 FOR 1^=1 TO n- 
7960 FOR j=i+l TO 
2970 IF q (i ,q) ^q( j 
2980 h-q (i , g) : q (i 
)=h 

7990 NEXT; NEXT: NS>:T 
MMMaMlM 


>"2" THEN 23 



GOSUB 230: 

T SPC(50) : L 
( 174) "Cuanto 
"; : INPUT " 


l)-p(i , 1) : q 


to (x,y)": 
14,"-") :PRI 


RASE pc: DIM 


2) -q(i ,2) : 


''q(1.7): vmin=q(n 

■-,010 ' Di 

3070 PRINT CHR*(22 
3030 I OPATF 25, 1: 
. -" : vmaj; : 
= V mln. =" 
INT "(7)- X 
0.23: PRINT 
3010 PRINT CHR»(22 
3050 ORIGIN 3O.20 
3060 FOR 1=1 TO n 
3070 PLOT IMT(p(i . 


'; 


LOCATE 

: ymin: 

max . - 

" ( 1 ) * 


ax-ymi n ) ) 

3080 PI nT INT(D(i 

ax'-xmin) )+l, lNT(p ( 

ymax-ymin) ) 

3090 NEXT 

3100 ex 1-FNy (xmin) 

3110 PLOT 0,(exl-y( n) « (378/ (ymax-y 

min)): DRAW 608, (ei^-ymi n) « (378/ (ym 

ax-ymi n) ) 

3120 GOSUB 

3130 RETURN . 


(1.2): NEXT 


) THEN 2990 
i)"q(j,g): q(j,g 


ERASE q 

la 

CHRt ( 1 ) ; 
INT " (4)= y max 
5,2: PRINT "(3) 
OCATE 50,22: PR 

xmax: LOCATE 5 
fflin. *■"; xmin 

CHR*(0) ; 


-xml n) » (608/ (xm 


-xmi n) * (6C1B/ (xm 
2) -ymin) ♦ (378/ ( 


Bx2=FNy (xmax ) 


Mrtai<&'^ Itobaja dufo. M H. AM J- 
IHADIohKepcfli lodoi l<H klatfoitfue inluifCf) 
eslehgoriposeeKueefrofiohdiilMiidonmitncai- 
telle mefivjoi, mticffoMilo. 





El comando 
EVERY 


Jndlisis 


Todos los ordenadores contienen un microproeesador 

regulado por cuarzo, que controla el tiempo de modo real. 

AMSTRAD Analisis estudia hoy un comando que nos permite 

utilizar esta caracteristica para realizar una tarea cada cierto 

tiempo exactamente: El comando EVERY. 


Autor: Fco. Javier Barcelo T. 



1 


I ejempio presentado 
consite en una subrutina que presenta un re- 
bj en la pantaila. Se puede incluir en cualquier 
otro programo, hociendo que eite otro em- 
piece a portir de.lo linea 210. El unico efedo 
negative serd que resulte un poco mas lento, 
^eamos el progroma; 

20-50: Comentarios, 

60: Borra la pantaila, y establece el modo 
de pantaila. 

70; Pregunta la hora. 

80: Comprueba que la hora dada no sea 
mayor que 24, ni menor que 0. 

90: Pregunta los minutos. 

1 00; Comprueba que los minutos dados es- 
ten entre y 59. 

1 00-1 20; Realiza lo mismo para los segun- 
dos. 

1 30: Detiene el progroma hasta que se pul- 
se ENTER, y cuando se pulsa empieza a co- 
rrer el tiempo. 

140: Borra la pantaila. 

1 50-1 80: Dibujan el borde del reioj en la 
pantaila. 

190; Comentarios. 

200: A partir del momento que el progro- 
ma ejecuta esta li'nea, cada segundo el pro- 
groma ira desde donde este a la lineo 230, y 
luego volverd donde estabo anteriormente. 



atotfottultlKiot 

MrMkeitelhobiijodom,M.H.AMS 

IkAO io hoce pcf H. lodot ioi Hilodot tptt iwluycfi 

esJehgotipoieeKitee/tonotijdiifiOiitiafiMij/xot- 

ietle menii/al icftciloKiilo. 


210-220; Bucle sin fin, para que el pro- 
groma no se pare. Aqui empezaria el progro- 
ma principal. 

230: Comentarios. 

240:Suma uno a la variable S (segundos). 

250; Conmpruebo si los segundos suman 
sesenta, y si es asi lo pone a cero, y sumo uno 
los minutos. 

260; Comprueba si los minutos suman se- 
senta, y si es asi pone a cero minutos y segun- 
dos, sumondo uno a la hora. 

270: Muestro la hora en la posicion de pan- 
taila especificoda. Al poner el signo x se in- 


vierten los colores de popel tinta en la pantaila. 

280: Retorna al programo principal, en el 
punto donde lo dejo. 

Este comando va seguido de un numero, 
que indica cada cuanto tiempo va a hacer el 
GOSUB a la lineo indicada. En este coso sera 
cada segundo (50 X 0.02 = 1 ), cuando ira a im- 
primir la hora. Cuando tronscurre el perlodo 
de tiempo, el ordenador deja lo tarea que es- 
taba hociendo para ejecutor la subrutina, y 
cuando ocobo esta (RETURN) vuelve a la ta- 
rea anterior y en el mismo punto donde lo 
dejo. 
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Night Shade 


Las fuerzas del mal, en 

una terrible noche, 

cayeron sobre una 

pacifica villa; ninguno de 

los habitantes pudo 

resistir las plagas y 

todos fueron pronto 

absorbidos par los 

malignos influjos. 



^^-^oco a poco, los 
moradores se transformaron en ho- 
rrendas criaturas, dedicadas a apo- 
derarse de cualquier humano que 
osase atravesar los limites de la ciu- 
dod. 

Como la pclcbra corre mas rapi- 
do que cualquier corcel, se extendio 
el rumor de la posesion demoniaca 
de la villa y esta se convirtio en un 
reto para cualquier aventurero, an- 
sioso de fame y riquezas. 

Pronto comenzaron a correr cuen- 
tos y leyendos, sobre los intrepidos 
aventureros que se adentraban en 
las cclles de la ciudad y jamds regre- 
saban. 




Un viejo anciano recorre el pais de 
punta a punta, intentando atraer a 
nuevos aventureros que puedan des- 
terrar a las fuerzas del mal de los li- 
mites de la villa. 

La historic contada siempre es la 
misma y sus ojos se llenan de lagri- 
mas, cuando relate como la ciudad 
fue poseida por las fuerzas diaboli- 
cas. 

Los cuentos de fantasmas y de er- 
mitanos embrujados por las fuerzas 
satdnicas para que les obedezcan, y 
de las plagas y demonios que circu- 
lan por las colles de la villa, andan 
en labios de todos. 

La misma muerte se encuentra 
airapada dentro del pueblo, por ser 
considerada como un visitante ino- 
portuno para el mismo diablo. 

Los esqueletos, acostumbrados a 
los rios de sangre putrefacta de los 
muertos, acechan a las posibles vfc- 
timas que osen traspasar los limites 
de la ciudad. 

Espantosos demonios y terribles 
hechizos, esperan para poder absor- 
ber a quien ose retar al poder sotd- 
nico. Expulsale a las tinieblas, y el 
reino del poder de los sombras serd 
tuyo. 

Con este prologo de horror y po- 
deres sobrenaturales, el retador del 
reino del mal se acerca a las puertas 
de la ciudad. 
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Siguiendo la estela de Knight Lore 
y Alien 8, la ultima produccion de 
Ultimate, continua fiel al sello de la 
casa. 

Utilizando el mismo metodo de re- 
presentacion tridimensional que en 
los anteriores. Night Shade se de- 
sarrolla en una ciudad amurallada, 
con calles, plazas, casas y una gran- 
diosa catedral, admiracion de todos 
sus moradores. 

La diferencia fundamental con los 
anteriores programas de la casa ra- 
dica en las tecnicas de movimiento. 

En Knight Lore y Alien 8, el prota- 
gonista se movia por la pantalla per- 
maneciendo fijo el decorado de las 
habitaciones. 

Ahora aquel permanece en el cen- 
tro de la misma, siendo el fondo lo 
que se traslada en las distintas direc- 
ciones. 

Con esta tecnica siempre podemos 
observer con claridad lo que nos es- 
pera en nuestro recorrido por las ca- 
lles y encrucijadas de la ciudad. 

Como innovacion principal, debe- 
mos resenar que cuando entramos 
en cualquier casa o edificio, los mu- 
ros se hacen transparentes, permi- 
tiendonos ver el interior sin cambiar 
de pantalla. 

Nuestro personaje es capaz de re- 
colectar armas y hechizos distribui- 
dos por las casas y calles, y de arro- 
jarlos sobre las criaturas hostiles que 
nos amenazan. 

Los enemigos que debemos elimi- 
nar son: la muerte, el ermitano, el 
fantasma y el esqueleto. Cada uno 
de ellos solamente puede ser aniqui- 
lado por un objeto que debemos lo- 
calizar en la ciudad, la muerte de los 
cuatro poderes maleficos, nos hard 
culminar con exito la aventura y ha- 
cernos poseedores del inmenso po- 
der de las sombras. 

La utilizacion de un mapa para 
movernos por las calles y casas de la 
ciudad serd de gran ayuda para 
cualquier jugador, dado el intrinca- 
do trazado de la misma. 

El juego se realiza en una parte re- 
ducida de la pantalla, dejando los 
bordes izquierdo e inferior para in- 
formacion, personajes y marcador, 
siendo una verdadera pena que no 
se haya utilizado la pantalla al com- 
pleto, constituyendo el unico detalle 
en contra, puesto que el area de jue- 
go ocupa solamente el 60 por 1 00 de 
la pantalla y esto es desaprovechar 
demasiado. 

Un juego tipico de Ultimate, con 
buenos grdficos y largo duracion. 


M 
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Star 

Mouse 


Si deseamos crear una pantalla para su posterior utiiizacion en 

un programa, con el paquete STAR MOUSE podemos realizaria 

con gran facilidad y rapidez. 

El paquete en cuestion contiene un disco con el software 

necesario para la creacion de pantallas, y un aparato que a 

partir de este moment© denominaremos RATON (traduccion 

castellana de la palabra MOUSE). 




na la utiiizacion 
del programo y una vez ccrgado en 
el ordencdor, cpreciaremos la pre- 
sencia de una ventanc a la izquier- 
da del monitor, que podremos des- 
plazor de posicion de izquierda a de- 
recha a nuestra conveniencio, para 
asi realizar completamente el dibu- 
jo de toda la pantalla sin ninguna li- 
mitacion. 

Una de las diferencias con otros 
programas de dibujo estriba sobre 
todo en la no aparicion de mensajes 
a la hora de trobajar con el, normal- 
mente en la aparicion de mensajes se 
indica si se estd desplazondo o pin- 
tando, osi como la posicion en coor- 
denadas del puntero gufa. 

Pero todo esto no es un inconve- 
niente en ningun caso, pues para ello 
los programas que asisten a los dis- 
tintos ratones existentes en el merca- 
do incorporan una serie de iconos 
que nos representan como estcmos 
trabajando. 


i,Que son los iconos? 

Los iconos son unos graficos que 
representan herramientas de traba- 
jo utilizadas normalmente por los di- 
bujantes, y otros que siempre nos 
dan una idea de la funcion que rea- 
lizan dentro del programo. 

Tomando como referencia la ven- 
tano de iconos nada mas terminar la 
cargo, vamos a explicor que repre- 
sentan los iconos, para que sirven y 
como monejorlos de una monera 
mas eficaz. 

El primer icono represento un cu- 
be de bosura y su utiiizacion nos per- 
mits la limpiezode la pantalla, o lo 
que es lo mismo, borro la pantalla y 
lo dejo lista para trobajar con ello sin 
ningun trazo dentro de ello. Para su 
utiiizacion pondremos lo flecha que 
guiamos con el roton encimo de di- 
cho grafico, y pulsaremos la teclo de 
ejecucion que posee el raton en su 
parte posterior. Si utilizamos este ico- 
no debemos tener especial cuidado, 
pues si por un descuido la tecia de 
ejecucion estando lo flecha encima 
del cubo, nos desoporecera el dibu- 
jo inmediatomente, con los trostornos 
que esto nos puede cousor. 

Al lado de este icono aparece una 
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especie de hoja doblada por una es- 
quina: representa la opcion de fiche- 
ro y, al posicionar la flecha sobre es- 
ta y pulsar el boton, el dibujo que te- 
nemos en ese momento en pontallo 
se archiva momentaneomente en 
memoria y aparece un pequefio me- 
nu entre los que podremos elegir 
grabar o corgar una pantalla, saber 
el contenido de un disco a traves de 
su directorio, borrar una pantalla del 
disco o retornar ol dibujo tal como 
lo habiamos dejado. 

El siguiente icono representa un or- 
denador y su pantalla. Al escoger es- 
ta opcion desaparecerd la ventana 
de informocion, permitiendo la visua- 
lizacion por completo del dibujo que 
estomos realizando. 

Para poder trabajar con cassette 
o disco poseemos dos iconos que re- 
presentan una cinta y un disco, con 
ellos elegiremos el soporte de archi- 
ve a utilizar con el programa. Para 
senalar cudi es el que estamos utili- 
zando, el icono aparece en fondo os- 
curo y tinto clara. Una de las venta- 
jas de poder disponer de disco y cin- 
ta es la de poder trosladar pantallas 
de uno a otro soporte de manera c6- 
moda. 



Hasta cuatro colores 

El modo de trabajo del programa 
es en modo 1, con lo que podemos 
utilizar hasta cuatro colores, que, 
aunque son pocos, permiten la rea- 
lizacion de pantallas con suficiente 
claridad y resolucion. Para cambiar 
de color de trabajo, disponemos de 
un icono dividido en cuatro partes 
iguales y al lodo del icono de disco; 
indica el color que se dispone en co- 
da momento, y se encuentro con una 
rayo atravesdndolo de esquina a 
esquino. 

Debajo de estos iconos encontra- 
remos otros dos, representondo unos 
flechas; estas se orientan hacia la iz- 
quierda y la derecha; con ellas co- 
mo anteriormente habfamos comen- 
tado desplazoremos la ventana de 
informocion de un lugar a otro de la 
pantalla segun nuestra conveniencia, 
sin borrar el dibujo que se encuen- 
tre debajo y permitiendonos dibujor 
en esa posicion de la pantalla que 
antes se encontrabo topodo. 

A lo horo de trabajar, lo pantalla 
nos sera de mucho utilidod poder 
cuadricularlo con una rejilla de 8x8, 
para facilitar el manejo de lo misma 
y reolizar un trabajo mds rectilineo 
y preciso. Para ello el icono en esta 
ocasion simulo una hoja cuadricula- 
da. 

Si esforzomos un poco nuestra 
imaginacion conseguiremos relocio- 
nor el icono que se encuentro a lo 
derecha de la cuadrfcula con un Id- 
piz y una Ifnea. Al elegir dicho ico- 
no, en el centro del monitor se ob- 
serve lo aparicion de un rectangulo. 

La utilizacion de este icono vo aso- 


ciado a lo utilizacion del icono de ti- 
rontes, y con el definiremos la fre- 
cuencio de trozo, o lo que es lo mis- 
mo, definiendo un tramo de linea de 
ocho pixel, y de estos cudntos y en 
que secuencia von a estar octivodos. 
Para definir el trozo utilizaremos el 
raton desplazondo este arribo y obo- 
jo hasta lograr la serie deseoda. 


Podemos definir trazos 
y tramas,.. 

Para definir el oncho del trazo a 
la horo de trabajar con la brocha o 
con las funciones de simetrfo, dispo- 
nemos de dos iconos divididos a su 
vez en cuatro coda uno. Los trazos 
que disponemos son un punto del ta- 
mano de un pixel, y otros tres mas 
onchos, una borra vertical, otro ho- 
rizontal y dos inclinodos. 

Con el programa podemos creor 
circulos del tomafio que deseemos, 
y para ello disponemos del icono de 
circulos. Al utilizar este deberemos 
tener en cuenta que el programa ne- 
cesita los dos extremos de lo figure 
a reolizar, obteniendo con ello un 
circulo del didmetro que hayamos se- 
nolodo. 

Ademds de poder creor circulos 
podemos reolizar elipses, para ello 
debemos indicor con la flecha gufo 
lo parte inferior izquierda de la ba- 
se de esta figuro; notoremos la pre- 
sencio al pulsar el boton de ejecucion 
de un pequeno encuadre, despla- 
zondo el raton hacia arribo y a la de- 
recha delimitoremos lo olturo y el an- 
cho de lo misma. 

Cuando tenemos que trazor una If- 
nea en lugar de reolizorla a pulso. 
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debemos elegir la opcion de tirali- 
neas que es el icono que representa 
una barra inclinado; para reolizar 
una lineo deberemos indicor el prin- 
cipio y el final de esto. Anteriormen- 
te comentamos un icono con el que 
es posible definir lo que podrfomos 
llamar el paso; por ejempio, que en 
una linea se pinten dos pixel activa- 
dos, dos no y que nos permito reoli- 
zar Ifneos con distintos frecuencias de 
trazo. 


...y reUenar 

cualquier figura 

con I 8 tipos de 

entramados 

Para rellenar una figura utilizare- 
mos el icono destinodo a esto funcion 
que es el que representa el rodillo; 
al elegir esta opcion, desoparecera 
la ventono de informacion del dibu- 
jo y en su lugor oparecero otra en 
donde encontroremos los distintos ti- 
pos de fill que podemos utilizor; dis- 
ponemos de 1 8 tipos distintos de en- 
tramados. Si deseomos intoducir 
cualquiera de estos tipos en una fi- 
gura debemos tener mucho cuidado 
de que la figura este completomen- 
te cerrado, pues si no el fill continua- 
ra por todo la pantollo hasta encon- 
trar un lugar en que se cierre; una 
vez tenido esto en cuenta, eligiremos 
la tramo que mejor se acopla a nues- 
tras necesidades, posicionando la fle- 
cha sobre esta pulsaremos el boton 
del roton y desplazaremos la flecho 
hacia el interior de lo figura y volve- 
remos a pulsar el boton. 

Entre los iconos que diponemos en- 
controremos dos identicos cualidades 
pero de realizacion distinto, y que re- 
presenta una especie de ventono 
obierto. Con oyudo de estos realiza- 
remos figuras con forma simetricas 
en dos pianos, vertical y horizontal- 
mente. Una vez elegida la opcion a 
reolizar posicionoremos la flecha en 
el lugar elegido y desplazaremos el 
raton por lo pontallo, generando 
una figura como si utilizdsemos un 
espejo para reflejarlo. 



J 


Star #l4o 


Software loader 


Hardware raton 


Programa creado para el diseno de pantallcs 
en modo 1, permitiendo el uso hasta cuotro 
colores. Estas pantallas nos serviran para 
utilizarlcs a modo de presentacion, al igual que 
en los progromas camerciales. 


Este raton no necesita nada mas que 
conectcrse al port del joystic, y a la corriente. El 
funcionamiento es mecanico y movido por una 
bola metalica. 


aparato 

STAR 


TIRA- 
LINEAS 

SI 


PISTOLAS 

SI 


borrar 

SI 


brocha 

SI 


FILL 

SI 


DEF.FILL 

NO 


circulos 

SI 


elipse 

SI 


impresora 

NO 


TRAZOS 


cuadrado 

NO 

Iallado " 
pantalla 

SI 


TEXTO 

SI 


JUEGOS 
CARACT. 


SIMETRIA 

SI 


DEFINIR 
COLOR TRAZO SENSIBILlDADl 

4 SI 1 SOLA 


Dibujor pulso es una tarea bas- 
tonte dificil con cualquier instrumen- 
to, para realizorla con raton tenemos 
que escoger la opcion de brocha. 
Con ella tendremos que elegir prime- 
ro el trazo que se va a utilizer fino, 
oncho, redondo o cualquiera de los 
que disponemos. Despues podremos 
reolizar cualquier dibujo en pantollo 
como si utilizasemos un Idpiz con dis- 
tintos tipos de punto. 

Este programa dispone de un ico- 
no destinodo a 1 borrado de seccio- 
nes o parte de la pontallo, este re- 
presenta una goma de borrar. 

Cuando el dibujo esta ocobado y 
nos diponemos a coloreorlo tendre- 
mos lo oportunidad de comprobar 
que el icono de pistolo, tiene un uso 
muy similar al de una de pintor, y 
que segun repetimos el paso sobre 
una misma zona el pintado es ma- 
yor, donde la oportunidad de mez- 
clar colores y cambiar los mismos. 


Tambien se puede 
incluir texto 

Por ultimo, para introducir texto en 
un dibujo podemos optor por el ico- 
no en forma de A moyuscula gotica. 
Al elegir esta opcion en la pantollo 
aporece un cursor identic© al que uti- 
liza en Amstrad en el centro de la 
pantalla; debemos posicionor este en 
el lugar donde se vaya a introducir 
el texto y despues pulsar el boton del 


raton. Una vez hecho esto operacion 
procederenos o introducir los coroc- 
teres con la oyuda del teclado del or- 
denador y al finalizor pulsaremos la 
teclo ENTER oporeciendo lo flecha 
gufa sobre el icono de texto. Con es- 
ta opcion no podemos introducir los 
carocteres que el ordenador dispo- 
ne pero no estan representodos en 
teclado. 


Como aprovechar Star 

Mouse en nuestros 

programas 

Al trabajar con las pantallas crea- 
das con ayudo del STAR MOUSE de- 
beremos teclear, LOAD « < NOM- 
BRE > », 49152, para la utilizacion 
en nuestros progromas. 

Un truco a tener en cuenta a lo ho- 
ro de empezar a crear una pantalla: 
puede ser de gran utilidad reolizar 
con un color claro un fill que nos ha- 
ga un encuodrado de pantalla, ya 
que lo opcion de cuadricula no es fi- 
jo y mds vale borrar despues de reo- 
lizar el dibujo que hocerlo descentra- 
do o torcido. 

En el programa que la coso nos a 
suministrado y que segun se nos a in- 
formodo no es la version definitive 
que se introducira en el paquete, he- 
mes detectado algunos folios que es- 
peramos sean corregidos antes de su 
comerciolizacion. 
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Dentro to no... 

Y DE TONO 
A SUS MELODIAS 


Ya hemos dado un paso en el conocimiento de las 
posibilidades sonoras del Amstrad. Sabemos usar el comando 
SOUND y dominamos la envolvente de volumen, el comando 

ENV. 

Pero resulta que existe otra envolvente, la de tono, que 

vamos a estudiar profusamente en este articulo, el comando 

ENT. 


Pero todo esto no es tan sencillo como pa- 
rece yo que vimos que el comando ENV po- 
dia tener hasta 1 6 parametros de la siguiente 
forma; 

ENVN, P1,QLR1,P2,Q2,R2, 
P3,Q3,R3,P4,Q4,R4, 
P5,Q5,R5 

Esta ampliacion en el numero de parame- 
tros se hacfa para dotar de cinco etapas dife- 
rentes a la orden ENV, Por si no fuera ya su- 
ficiente, la envolvente de volumen no es la uni- 
ca que puede ofectar a nuestro comando ba- 
sico SOUND, 

La envolvente de tono: 
el comando ENT 

Hay otra, llamada envolvente de tono, que 
afecta a! tono de la nota haciendole alto o 
bajo-grave o agudo. Antes de ver como tra- 
baja, vamos a «escucharlo» en accion, 

Primero definimos una envolvente de tono 



seguido la serie 
hasta aqui, ya le resultara familiar nuestro vie- 
jo amigo: i 

SOUND 1,200,100,5' 

Esperamos que sea capaz de ver que esta 
orden dice al Amstrad que produzca un so- 
nido por el canal A durante un segundo. El to- 
no de la nota sera 200 y su volumen 5. 

Como recordara, el comando SOUND tie- 
ne la siguiente estructura: 

SOUND canal, tono, duracion, volumen 
y cambiando alguno de estos parametros al- 
terariamos el sonido resultante. 

Sin embargo, la cosa no es tan simple. La 
semana pasada vimos que el volumen de la 
nota que se producia podia variarse median- 
te algo llamado envolvente de volumen. 

Podemos tener hasta 1 5 de estas envolven- 
tes de volumen, definidas por el comando ENV 
y puestas en marcha aiiadiendo otro parame- 
tro al final de nuestro instruccion bdsica 
SOUND. 

De este modo, cambiando: 

ENV 1,5,2,20 

^ SOUND 1,200,100,5,1 

conseguiremos una nota que dura un segun- 
do incrementando su volumen mientras suena. 
La estructura de un comando ENV es: 

ENV N, P, Q, R 

donde N indica el numero de la envolvente, 
P da la cantidad de saltos escalones que tie- 
ne, Q el combio de volumen que se produce 
en cade escalon y R especificora la longitud 
de los mismos. 
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con: 


ENT 1,5,10,20 


Despues tecleamos: 

SOUND 1,200,100,5,0,1 

y pulsamos ENTER. 

Si ha introducido las ordenes correctamen- 
te podrd escuchar un sonido, que dura un se- 
gundo, subiendo y bajando de tonalidad. 

Lo que ocurre es que el 1 que estd al final 
de comando SOUND ha llamado a la envol- 
vente de tono senalada como la numero 1 . Es- 
ta envolvente, previamente definida, varia el 
tono por la instruccion SOUND de acuerdo 
con los parametros que le hayamos dado. 

Como podemos ver, la envolvente de tono 
tiene un aspecto muy similar al de la envolven- 
te de volumen de la que nos ocupamos ante- 
riormente. 

Tiene la forma; 

ENT S,T,V,W 




1 

o 











N 


ilttiM 



No le habrd resultado muy dificil adivinar 
que S nos indica el numero de la envolvente 
de tono. Podemos definir hasta 15, de modo 
que S tiene un rango de valores comprendi- 
dos entre 1 y 15. La envolvente tambien exis- 
te pero equivale a hacer que la nota no cam- 
hie de tono. 

Los pardmetros efe la 
envolvente de tono 

Los parametros T, V y W se asemejan, de 
nuevo, a los de la envolvente de volumen, pe- 
ro en este case influyen en la forma como de- 
be voriar la note en «agudeza» o en «gra- 
vedad» del tono, no en cuanto al nivel de vo- 
lumen. 

El porametro T nos dice el numero de esco- 
lones en los que estd dividida la note asocia- 
da a la envolvente de tono. Puede tener va- 
lores comprendidos entre y 239. 

El porametro V es el que nos indica cudnto 
debe variar el tono en cada escalon. Puede 
subir y bajar, a! tomar valores entre —128 y 
127. 

Finalmente el porametro W es la longitud 
—0 duracion— de cada escalon. Lo medimos 
en centesimas de segundo pudiendo valer des- 
de a 225. La Tabia II es una recapitulacion 
sobre los parametros que necesita el coman- 
do ENT y de los valores que pueden tener di- 
chos parametros. 

Ahora que ya conocemos que es lo que sig- 
nifico cada uno de estos parametros, veamos 
como trabajon sobre nuestro sonido preferi- 
do. La Figure I represento un diagrama de co- 
mo varia el tono de la nota producida por: 

SOUND 1,200,100,5 

Como podemos observar, el tono se man- 
tiene constante con un valor igual a 200 du- 
rante el segundo que dura la nota. 

Vamos a definir ahora una envolvente de 
tono con la orden: 

ENT 1,5,10,20 

y la llomaremos con: 

SOUND 1,200,100,5,0,1 

Escucharemos como va descendiendo el to- 
no del sonido cinco escalones durante el se- 
gundo que estd soncndo. Lo Figure II presen- 
ta los cinco escalones de la envolvente de to- 
no de un modo grdfico. 

Vamos a verlo detalladamente. El pardme- 
tro T es igual a 5, asegurando que habrd cin- 
co escalones, mientras que el pardmetro W, 
con un valor de 20, afirma que cada escalon 
durard la quinta parte de un segundo. 

Todavia con mds 
d eta lie 

El pardmetro V es 10 y quiere decir que en 
cada escalon se suma 10 al valor de tono de 
la nota que estd sonando. 

En el caso de: 

SOUND 1,200,100,5,0,1 


lonido 


nos encontraremos que estdn sonando cinco 
notas con tonos de 21 0, 220, 230, 240 y 250. 
La envolvente coge el pardmetro de tono del 
comando SOUND —200— y le va sumando 
1 al llegor a cada escalon. Como el valor de 
dicho pardmetro se va incrementando, la no- 
ta se hace cada vez mds grave-baja. 

Observe que el tono se incrementa desde el 
primer momento, el sonido comienza con un 
tono de 210 y no de 200 como cobria espe- 
rar. El efecto profucido por la envolvente de 
tono es inmediato. Dese cuenta tambien que 
un sencillo comando SOUND ha sido capaz 
de producir cinco notas gracias a la envolvente 
de tono que previamente hemos definido. 

Anteriormente teniamos que usar cinco co- 
mondos SOUND para conseguir el mismo 
efecto, como en el Programa I. 

Programa uno 

Ahora, sin embargo, podemos obtener el 
mismo resultado definiendo una envolvente de 
tono con: 

ENT 1,5,10,20 

y llamaria usando: 

SOUND 1,200,100,5,0,1 

que es bastante mds sencillo. Y la misma en- 
volvente puede utilizarse para variar el tono 
de cualquier otra nota del mismo modo. Pro- 
bemos: 

SOUND 1,100,100,5,0,1 

que llama a la misma envolvente pero comien- 
za con un tono grave (110). 

Hagamos una pequefia recapitulacion. Po- 
demos definir una envolvente de tono usan- 
do el comando ENT. Cuando la llamamos, al- 
tera el tono del sonido producido por el co- 
mando SOUND. 

Ambas envolventes 

pueden actuar 

simultdneamente 

Por si todavia no estd suficientemente osom- 
brado le diremos que es posible encontrar om- 
bcs envolventes, de volumen y de tono,. ac- 
tuondo al mismo tiempo. Pruebelo: 

SOUND 1,200,100,5,1,1 

y —a menos que hayamos borrado las envol- 
ventes de nuestro micro y sea necesario 
reponerlas— escucharemos cinco notas des- 
cendiendo tanto en volumen como en tono. 
Ambas envolventes pueden trabajar a la vez 
en perfecta armonia. 
Como hemos dicho antes, podemos tener 
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hasta 15 envolventes de fono, de modo que 
vamos a definir otra con: 

ENT 2,5-10,20 

^Podria adivinar su efecto antes de 
probarlo con el comando SOUND? 

El parometro T vale 5, de modo que tendra 
cinco escalones. Yo que el porametro W es 20, 
nos quiere decir que code escolon durara 20 
centesimcs de segundo. El porametro V es 
— 10, por lo tonto el valor del parometro de 
tono se decrementora en 10 por coda esco- 
lon de la envolvente. 

Mientros que el volor del parometro decre- 
ce, el tono de lo nota, parodojicamente, 
oumenta. Asi que hobremos conseguido una 
nota que dura un segundo y que su tono se 
subird cinco escalones, Llomaremos a lo en- 
volvente con: 

SOUND 1,200,100,5,0,2 

y lo escuchoremos por nosotros mismos. 

De nuevo, una sencillo envolvente ha pro- 
ducido cinco notos de diferentes tonos. Si no 
queremos hacer uso de la envolvente pode- 
mos recurrir a algo porecido al Progroma II 
para alconzor nuestros propositos. 

Programa dos 

Como podemos ver: 

SOUND 1,200,100,5,0,2 

nos resulta mucho mds comodo. 

Seguromente que le habrdn llegodo rumo- 
res de que lo envolvente de tono espero que 
el sonido dure un cierto tiempo. Haste ahoro 
en nuestros ejemplos hemos usodo comondos 
SOUND que han durado esa cantidod de 
tiempo. Supongomos que definimos una en- 
volvente de tono con: 

ENT 3,5,20,40 

Como podemos ver por los porametros T y 
W, la envolvente cuenta con que hayo cinco 
escalones y que coda uno dure 40 centesimas 
de segundo. 

Interaccion de SOUND 
y ENT 

Pero supongomos que el comando SOUND 
que invoca a la envolvente tiene un porame- 
tro de duracion de un segundo. En otras po- 
labras, la^durocion del comando SOUND es 
menor que la osumida por lo envolvente de 
tono. ^Que ocurre ahora? 

Como lo mayor parte de las cosas dentro 
de lo Informdtico, lo respuesta estd en probar- 
lo y verlo. Tecleondo: 

SOUND 1,200,100,5,0,3 

encontroremos nuestra solucion. El sonido si- 
gue durondo un segundo. Lo envolvente de 
tono solo recorre dos escalones y medio an- 
tes de ser interrumpido. 

SOUND 1,200,200,5,0,3 


Tabh I: tangos de parameiro del comando SOUND. 



Canal 

Tono 

Durocion 

Volumen 

Envolvente 

de 
volumen 

Envolvente 

sin 
envolvente 

con 
envolvente 

de 
tono 

Rango 

1 A 

2 B 
4 = C 



A 

4095 

1 

A 
32767 


A 
7 



A 

15 



A 

15 



A 

15 

Defecto 

Ninguno 

Ninguno 

20 

4 

12 






labia II: Rangos de parameiro del comando ENJ. 



Parometro 


Rango 


Numero 
S 


A 15 


Numero de 

escalones en 

seccion 

T 




A 

239 


Combio de tono 

por escoldn 

V 


-128 

A 

127 


Longilud de 

coda escolon 

W 




A 

255 


TONGA 


250 

240-^ 

230 

220 

210 

200 

190 

180 

170 

160 

150 



Tiempo 


10 20 30 40 50 60 70 80 90 100 (1/100 seg.) 


Hgura I: SOUND 1,200, 100,5. 


Escolon 


Escolon 


Escolon 


Escolon 


Escolon 


250- 

240- 

230 - 

220 - 

210 - 

200 - 

190 - 

180 - 

170 - 

160 - Tiempo 

150 H , , , ... 

10 20 30 40 50 60 70 80 90 100 (1/100 seg.) 
Figura II: SOUND 1,200,100,5,0,1. 


Tono 

1 
1 

T,V,W, TjVjW, TjV,Wj T4V4W, 

T5V5W5 

m 

■y^-^ 

1 



1 

1 


1 

Tiempo 


Seccion 1 Seccion 2 Secfwn 3 Seccion 4 

Seccion 5 



Figura III: Pardmetros de las cinco secciones de una envolvente de tono. 
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que dura dos segundos, nos permitira escuchar 
fodos los efedos producidos por la envolvente. 
Pero, ^que ocurre en el caso contra- 
rio, cuando la envolvente de tono 
dura menos tiempo que el comando 
SOUND? Introduzcamos: 

ENT 4,5 -10,10 

que define una envolvente de tono que supo- 
ne que va a durar medio segundo. Ahora llo- 
mamos a esta envolvente recien creada con: 

SOUND 1,200,100,5,0,4 

que debera sonar durante un segundo. 

Como podemos escuchar, el efecto de la en- 
volvente de tono se aprecia durante medio se- 
gundo, en el que el tono de la nota oumenta. 
Durante el medio segundo restante la nota 
permanece con el tono final. 

La envolvente tiene ese recorrido y el co- 
mando SOUND utiliza el tiempo restante so- 
nando con el ultimo tono. 

Otro problema que se nos puede presenter 
as que el pardmetro V de la envolvente de to- 
no haga que este intente tomar un valor que 
esta fuera de range. 

Como sabemos, el valor del parametro de 
tono solo puede tener un rango de valores 
comprendidos entre y 4095. Pero, jque ocu- 
rre cuando al incrementar o decrementar el 
tono en uno de los escalones de la envolven- 
te intenta salirse fuera de range? 

Al encontrarnos con un problema similar en 
la envolvente de volumen vimos que el Ams- 
trad recorre «el camino del reloj» con los va- 
lores dentro de rango. Este es tambien el ca- 
so de la envolvente de tono. Probemos; 

ENT 5,5,-100,100 
SOUND 1,300,500,5,0,5 


ENT 6,5,100,100 
SOUND 1,300,500,5,0,6 



y escucharemos lo que queremos decir. Hay 
una parte silenciosa que se da cuando el pa- 
rdmetro de tono es igual a cero. 

Resumiendo.. . 

Y esto es todo por esta semana, excepto avi- 
sarle, como siempre, que la envolvente de to- 
no no es tan sencilla como parece. Lo mismo 
que ocurre con lo envolvente de volumen, pue- 
de tener cinco secciones en lugar de la unica 
que hemos utilizado hasta chora. 

Esto significa que en lugar de: 

ENT S,T,V,W 

la definicion actual de una envolvente de to- 
no es: 

ENTS,T1,V1,W1,T2,V2,W2, 
T3,V3,W3,T4,V4,W4, 
T5,V5,W5 

De nuevo hemos conseguido llegar a un 
enorme engendro de 1 6 pardmetros. Dejenos 
decirle otra vez que no es tan fiero como pa- 
rece. 

Aunque nos hemos encontrado con cinco 
secciones diferentes, cada una se comporta del 
mismo modo que la que vimos al principio. La 
diferencia es que en lugar de T, V y W la pri- 
mera seccion tiene los pardmetros Tl, VI, y 
Wl, la segundo T2,V2 y W2 y asi sucesiva- 
mente. La Figura III nos representa como se 
relacionan los pardmetros con cada una de las 
secciones. 

Aunque podemos tener cinco secciones en 
una envolvente de tono —como es evidente 
segun lo anterior— no tenemos por que utili- 
zarlas todas a la vez. Para ilustrarlo vamos a 
fabricar una envolvente con tres secciones tal 
como la definida con: 

ENT 1,5,10,20,5,-5,20,5,5,20 

Esta envolvente de tono estd numerada co- 
mo la 1 y tiene tres secciones con una dura- 
cidn total de tres segundos. Tomando cada 
seccion por orden podemos ser capaces de ver 
lo que ocurre. Cuando nos parezca que ya lo 
sabemos invocaremos a la envolvente con: 

SOUND 1,200,300,5,0,1 

y comprobaremos si nuestras suposiciones son 
ciertas. 

No debemos preocuparnos por la cantidad 
de pardmetros que tiene la envolvente de to- 
no. Mientras no la demostremos que tenemos 
miedo todo ird bien. 

Y para odquirir prdctica le dejamos con el 
Programa III que le ayudara a crear sus pro- 
pias envolventes de tono y escuchar si le gustan. 

Programa tres 

Y, ahora si, esto es todo por esta semana, 
aunque no es el final de nuestro tratamiento 
de envolventes. Despues de todo, hay algu- 
nas preguntas que necesiton una respuesta. 
Como por ejempio, jpor que existen las en- 
volventes? 


Programa 


10 REM PROGRAMA I 
20 SOUND 1,210,20,5 
30 SOUND 1, 
40 SOUND ] , 
1, 


50 SOUND 
60 SOUND 1, 


220, 20,5 

•^ - - . ^ ♦-■ • J -' 
240, 20,5 
250,20,5 


1 

REM PROGRAMA II 

20 

SOUND 1,190,20,5 

30 

SOUND 1, 180,20,5 

40 

SOUND 1, 170,20,5 

50 

SOUND 1, 160,20,5 

60 

SOUND 1,150,20,5 


in RFM PROGRAMA III 

■?() RFM FNVDLVFMTE RF I ONCI 

'0 DIM t- !S) . v<5) . w(5) 

10 WHll F 1 

■=:o MOnF 1 

/iCi INrUT "N'.irtipro dt? ^.ecciones en la 

envolvente de tono'' ".secciones 
70 IF secciones-.l OR seccionts b TH 
EM CLS:GDTD 60 

aO CLS M 

9fi FGB bucle=1 TO set clones ■ 
100 LOCATE "'.,5:PRIMT"Bercion"buclf» ' 
110 LDCATF ~,8:PRINT"Numero de esca 
I ones''" 

i:'0 LOCATE 30,8: INPUT "",t(bLicle) 
t~o IF t<bucle)'0 OR ttbucle) 2"^9 T 
HEN LOCATE TO, 8: PRINT SPACE* <S) : GOT 
120 

14CI LOCATE ~, 1 "'.•.PRINT"A1 tura de cad 
a pscalon'^" 

151"! LOCATE 30. 17: INPUT "".v(hucle) 
16CI IF v(bucleK-128 OR v(bucle)>12 
7 THEN LOCATF 30,1": PRINT SPACE* (B) 
:GOTO ISO 

171-1 LOCATF 3, lB:PRlNT"Tiempo de pau 
sa"" 

180 LOCATE 30, 18: INPUT '"-.MCbucle) 
190 IF w<bi.icle)^0 OR w <bucle) ,-255 T 
HEN LOCATE 30.18:PRINT SPACE«(8):G0 
TO 180 

200 LOCATE 14, 23: PRINT'T'ULSA ESPACI 
0" 

210 WHILE INtEY(47) -1:WEND:CIS 
2?<"i WHILE IN^■-EY«' "":WFND 
730 NEXT bucle 

240 ENT 1 ,t <1) , V (1) ,w<n ,t <2) , v(2) , 
w(2) , t (3) , v (3) , w<3) , t (4) , v<4) ,w(4) , 
t (5) , v (5) , w(5) 

250 duracion=t ( 1 ) *w ( 1 ) +t (2) »w (2) +t ( 
3) «w(3)+t (4) »w<4) +t <5) *w(5) 
260 SOUND 1 ,2OO,duracion,5.0, 1 
270 CLS 

280 duraci on*'RIGHT« (STR* (dur scion) 
.LEN(STR«(duracion) )-l) 
290 FRINT"SOUND 1 . 2ori, "■ duraci on*; " 
,5,0,1" 

300 FOR bucle=) TO secciof.es 
310 bucle*=RIGHT*<STR* (bucle) , 1) 
320 PRINT"T(":burle*i ") ";t(bucle) 
330 PRINT"i-'(":buclet; ") ";v<burle) 
340 PRINT"W(";bucle*i ") ";w<bLirle) 
350 NEXT 

360 LOCATF. 14,23:PRINT"PUl SA ESPACI 
0" 

370 WHILE IN>,FV(47)'^-):WFNn:Cl S 
^SO WFND 
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Instrucciones 

de cambio 
transferencia 
y busqueda (ii) 

Continuaremos hablando hoy de este bloque de instrucciones 

del cual hemos visto ya las de cambio: las instrucciones de 

transferencia de bytes. 



a primera de estas ins- 
trucciones se representa de la siguiente forma: 

LDI 

Tras su ejecucion, un byte se transfiere des- 
de la posicion de memoria indicoda por el con- 
tenido del registro par HL a la posicion de me- 
moria indicada por el contenido del registro 
doble DE. Una vez hecho esto, ambos regis- 
tros pares se incrementan y el registro doble 
BC se decrementa. 

Veremos a continuocion un ejemplo de ac- 
tuacion para ver mds claro el efecto que pro- 
duce. 

Supongamos que el valor y contenido de los 
registros dobles a los que afectan dicha ins- 
truccion son los siguientes: 


d«,i,;a« a^ Contenido de 
mimcrin ^''^ho posicion 



HL #7000 255 
DE #8000 50 
BC #1000 Noafectado 


Despues de la ejecucion de LDI obtendre- 
mos: 


HL #7001 
DE #8001 
BC #9FF No afectado 

28 /^ 

y el contenido de la posicion de memoria 
#7000 y #8000 sera: 

#7000 50 
#8000 255 

Un ejemplo prdctico de como trobaja la ins- 
truccion LDI, lo podemos ver en el programa 
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numero 1 . En primer lugar cargamos en el re- 
gistro doble ^^L con la posicion de memoria 
cuyo contenido queremos traspasar y luego 
cargamos en DE con la posicion de memoria 
hacia la cual queremos traspasar el conteni- 
do de la anterior. Dado que en este progra- 
ma nos proponemos traspasar el contenido de 
la posicion #BB00 a \a posicion de pantalla 
#C000 lo que fiacemos es cargor en HL esa 
primera direccion y en DE la siguiente. 

Una vez fiecho esto, colocomos la instruc- 
cion LDI, que es la que producira el efecfo de- 
seodo. Asi pues una vez ejecutado dicho pro- 
grama podremos observer como se ilumina un 
byte en pantalla. 


Transferir un numero 
fiio de bytes 

El programa numero dos aprovecha ademds 
la facultad que tiene esta instruccion de decre- 
mentar el registro doble BC. 

En este programa no vamos a traspasar un 
solo dato, sino que traspasoremos tantos bytes 
como indique el registro BC. Por lo tanto ve- 
mos a cargor HL y DE con los mismos valores 
que en el programa anterior, y ademas car- 
garemos BC con 1000, estos serdn los bytes 
totales a traspasar. El siguiente paso es eje- 
cutor LDI y una vez hecho esto comprobare- 
mos cudi es el valor actual del registro BC, si 
no es cero volveremos al principio y se ejecu- 
tard otra vez el programa. Si es cero retorna- 
remos ol Basic. 

Precisamente el efecto que produce lo ins- 
truccion que veremos a continuocion es la rea- 
lizada por el anterior programa. Esta instruc- 
cion se presenta de la siguiente forma: 
LDIR 

Su ejecucion transfiere un byte de datos des- 
de la posicion de memoria indicada por el re- 
gistro par DE. Ambos registros dobles se in- 
crementan y el registro par BC se decremen- 
ta. Si tras este decremento el registro doble BC 
es cero, termina la ejecucion de la instruccion. 
Si BC no es cero, BC se decrementa en dos y 
lo instruccion se repite hasta que el contenido 
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de dicho registro doble sea cero. Debemos de- 
cir que detrds de coda trosposo de dates se 
compruebon las interrupciones. 


El registro BC actua de 
contador 

Si antes de ejecutor la anterior instruccion 
BC con el valor cero, la instruccion se repeti- 
rd 65.535 veces o sea 64 Kbytes. Esto se de- 
be que LDIR decrennenta el registro doble 
BC, y si no es cero se repite la instruccion. Asi 
pues si BC vale cero, al decrementar BC sste 
se pone a #FFFF y dado que es cero, la ins- 
truccion se repite hasta que alcance ese valor. 

El efecto que produce el progroma numero 
tres, es identico al producido por el progra- 
ma anterior, si bien, como podemos compro- 
bar, el numero de instrucciones de este ultimo 
es sensiblemente menor debido a que LDIR 
comprueba si el registro BC es cero y, si es asi, 
deja de actuar mientras que lo anterior instruc- 
cion no tenia esta capacidad. 

Asi pues este progroma nos traspasara 1000 
bytes a partir de la direccion #BBOO hacia la 
zona de pantallo. 

El progroma numero cuotro realizo un tras- 
paso de bytes desde la direccion #BBOO ha- 
cia lo direccion #8B00. El numero de bytes a 
traspasar es de #500, valor este que hemes 
corgado en BC, que es el registro contador. 

Bien, como podeis comprobar, lo que pre- 
tendemos con este programo, es precisamen- 
te traspasar el firmware del AMSTRAD a una 
nueva posicion que sera la #8B00. 

Despues de la instruccion LDIR, corgamos 
el acumulodor con el caracter «A» y llama- 
remos a \a rutina de firmware que imprime en 
pantallo, pero dado que tenemos dos bloques 
de firmware, en lugor de llamar al original lla- 
moremos al que hemos creado que se encuen- 
tra a partir de la direcci6n #8B00. Por lo tan- 
to la rutina de impresion estara situada en la 
direcci6n #8B5A, y obtendremos el caracter 
«A» en pantallo. 


Instruccion LDD 

La instruccion que veremos a continuacion 
se representa de la siguiente forma: 

LDD 

Esta instruccion transfiere un byte desde la 
posicion de memoria indicada por el conteni- 
do del registro par HL a la posicion de memo- 
ria indicada por el registro doble DE. Una vez 
hecho esto, ambos registros se decrementan. 
Tambien se decrementa el registro doble BC. 

Como podemos observer esta instruccion 
produce el mismo efecto que LDI, pero en lu- 
gar de incrementar los registros HL y DE, en 
este case se decrementan. 

Vames a ver en el siguiente ejempio la for- 
ma en que actua la intreduccion LDD. 

Supongomos que los registros dobles HL, DE 
y BC contienen les siguiente valores: 


lodigp 
iiHiciu"''' 



Posicion de ^ontenido de 
memoria dichoposiclon 

HL #8000 250 
DE #7000 35 
BC #1000 No afectado 

Despues de la ejecucibn de la anterior ins- 
truccion obtendremos los siguiente valores: 

HL #7FFF 
DE #6FFF 
BC #FFF No afectado 


y en la posici6n de memoria #7000 obtendre- 
mos el valor 250 que anteriormente contenia 
la posicion #8000. 

El progroma numero cuotro presenta un 
ejempio practice de actuacion de la instruc- 
cion anterior. Esta rutina se encarga de tras- 
pasar un byte desde lo posici6n de memoria 
indicada por el registro deble HL hacia la po- 
sicion indicoda per el registro por DE. 

El objetivo del siguiente progroma es tras- 
pasar un bleque de bytes desde la pesicion in- 
dicada per HL hosta la posicion indicada por 
DE. 

El numero de bytes a traspasar esta indica- 
do en el registro par BC. Dado que este re- 
gistro se decrementa coda vez que actiia la 
instruccion LDD, comprobaremos si BC es ce- 
ro. Si es esi el progroma termino y retorna al 
Basic, de lo centrario vuelve a ejecutarse di- 
cho instruccion. 

Este progroma traspasa un bleque de #4000 
bytes desde la posicion #8000 hasta ia posi- 
cion #C000, cerrespondiente esto ultima a la 
zona de memoria de pantallo. Por lo tanto les 
registros pares BC, fHL y DE deberdn conte- 
ner respectivamente los valores, #4000, #FFFF 
y #BFFF. 


Instruccion LDDR 

La ultima de las instrucciones de transferen- 
cia es la que se indica a continuacion: 

LDDR 

Esta instruccion transfiere un byte desde la 
posicion de memoria indicada por el conteni- 
do del registro par HL a la posicion de memo- 
ria indicada per el registro doble DE. Una vez 
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hecho esto ambos registros se decrementan, 
el registro BC tambien es decrementado. 

Si una vez decrementado el registro par BC 
este ha llegado a cero, la instruccion termina 
en ese momento. Si el registro BC no es cere, 
entonces se decrementa en dos y la instruccion 
se repite hasta que BC sea cero. Si BC vale cero 
antes de la entrada a la instruccion, entonces 
la instruccion se repetira durante 65.535 ve- 
ces. Despues de cada transferencia de datos 
se reconoceran las interrupciones. 

El progroma numero seis nos muestra como 
resolver la rutina que veiamos anteriormen- 
te, pero esto vez con un ohorro considerable 
de instrucciones. Esto es debido a que LDDR, 
ejecufo varies cosas a la vez, esto es, decre- 
menta los registros dobles BC, HL y DE, ade- 
mcis comprueba si BC vale cero, si es asi la ins- 
truccion finaliza, de lo contrario la instruccion 
continua hosto que dicho registro alcance el 
valor cero. 

Por lo tanto este programa nos pasara un 
bloque de 16 K de datos desde la posicion 
#8000 hasta la posicion #C000 de pantolla. 

El ultimo de los programas que hemos pre- 
parado presento una rutina que se encuentra 
en la posicion de mememorio #A000, y su mi- 
sion es imprimir un mensaje en pantolla. 

Ahora lo que horemos sera Iraspasar ese 
progroma desde la posicion en que se encuen- 
tra hocia una nuevo posicion, por el ejempio 
una posicion de pantolla como la #C000, y 
una vez olli lo ejecutaremos. 

Poro poder traspasarlo a eso nuevo posi- 
cion, debemos cargor en el registro doble HL, 
la posicion donde se encuentra el programa, 
en el registro par DE deberemos poner la di- 
reccion de memoria donde vo a ser traspaso- 
do, y en el registro doble BC pondremos el nu- 
mero de bytes que contiene el progroma. Una 
vez hecho esto ejecucidn LDDR, yo tendremos 
el programa en esa nuevo posicion. 

Antes de trospasar un progroma de una zo- 
na de memoria a otro, deberemos de tener en 
cuento de que este no tango llomadas abso- 
lutes en forma de instrucciones CALL o JP, yo 
que si existieron, deberiomos corregir los soi- 
tos que se producen, porque de lo contrario 
el progroma se perderio en lo memoria y el 
ordenodor se colgarfa. 
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PROGRAMAS 


le REM ♦ PROGRAMA 1 ♦ 

26 REM 

3ti FOR N=&A600 TO &A0e9 

48 READ A!SUMA=SUMA+A 

56 POKE N.A 

40 NEXT 

70 IF SUMA<>S<4e3 THEN PRINT 'ERROR 

EN DATAS- 

30 DATA 33.9.137,17,0,192,237 

9e DATA 168,201.0,0,8,0,0 


18 REM « PROGRAMA 2 ♦ 

20 REM 

38 FOR N-&A000 TO &A0 1 8 

40 READ A:SUMA=3UMA+A 

50 POKE N.A 

40 NEXT 

70 IF SUMAO&657 THEN PRINT "ERROR 

EN DATAS' 

80 DATA 33,0,187,17,0,192,1 

98 DATA 8,16,237,160,128,177,32 

100 DATA 250,20 1,8,8,8,0,8 


1 8 REM • PROGRAMA 3 • 

20 REM 

30 FOR N=6<rt000 TO &A00C 

40 READ A!SUMA=SUMA+A 

58 POKE N,A 

60 NEXT 

70 IF SUMA<^&4 24 THEN PRINT "ERROR 

EN DATAS" 

80 DATA 33,8,187,17,0,192,1 

90 DATA 0,16,237,176,201,0,0 


10 REM » PROGRAMA 4 if 

20 REM 

30 FOR N=8<A800 TO &A0 1 1 

48 READ A:SUMA=SUMA+A 

50 POKE N,A 

68 NEXT 

70 IF SUMAO&615 THEN PRINT "ERROR 

EN DATAS" 

80 DATA 33,0,137,17,0,139,1 

90 DATA 0.5,237,176,62,65,295 

100 DATA 90,139,281,0,0,0,8 


10 REM ♦ PROGRAMA 5 * 
20 REM 

30 FOR r-j-s<Ae0a to &A010 

48 READ A:S1JMA-3UMA + A 

50 POKE N,A 

68 NEXT 

70 IF SUMA<>S;5D4 THEN PRINT "ERROR 

EN DATAS" 

88 DATA 33,0,192,17,8,0,1 

90 DATA 0,64,237,168,128.177,32 

108 DATA 250,281,0,0,0,0,0 


10 REM « PROGRAMA 6 *■ 

28 REM 

30 FOR N=&A886 TO &A00C 

43 READ A ; SUMA=SUMA+A 

50 POKE N,A 

60 NEXT 

78 IF SLIMAO&3A1 THEN PRINT "ERROR 

EN DATAS" 

80 DATA 33,8,192,17,0,0,1 

90 DATA 9,64,237,184,201,0,8 


10 REM * PROGRAMA 7-« 

20 REM 

30 FOR N=8<A800 TO itAO 1 

40 READ AiSUMA-SUMAtA 

58 POKE N,A 

68 NEXT 

70 IF SLIMAO&AE3 THEN PRINT "ERROR 

EN DATAS" 

88 DATA 33,28,160,17,79,192,1 

90 DATA 15,8,237,184,195,65.192 

108 DATA 33,0,112,54,48,6,10 

110 DATA 126,205,90,187,52,16,249 

1 28 DATA 201,0,0,0,8,8,0 
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BATTLE OF PLANETS ES EL PROGRAMA SELECCIONADO PARA EL 
PEOIMA TO INTERNACIONAL DE JUEGOS DE ORDENADOR. 

MSIGUE LA MAXIMA PUNTUACION ESPAAOLA Y PARTICIPA EN LA FINAL DE LONDRES. 
i (LAS BASES DEL CONCURSO ESTAN EXPLICADAS EN EL PROGRAMA) 
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Sin dudo 
alguno 


/\ fraves de esfa seccion se pre- 
tende resolver, en la medida de lo 
posible, todas las posibles dudas 
que «atornienten» a todas las 
personas interesadas en el mundo 
del AMSTRAD, sean o no poseedo- 
res de uno y, si lo son, se encuen- 
tren en cualquier nivel de destrezo 
en su manejo. 

Semanaimente, aparecen en estas 
pdginas las consultas de la mayor 
cantidad de usuarios posible; ello re- 
dundard en un mejor servicio y en 
un contacto mas estrecho entre to- 
dos nosotros a troves de la revista. 

SIN DUDA ALGUNA estd 
abierta a todos. 


Me gustorfc que en la seccion co- 
rrespondiente de su revista, me ex- 
pliccran come puedo compaginor el 
programo que opcrece en el libro 
que entregon con el ordenodor al 
trator el comando WEND (concreta- 
mente se troto de poner en funciona- 
miento un reloj), con cualquier, pro- 
grama de gestion a los cuales soy 
muy aficionado. 

El problema radica en que cuan- 
do me desvfo de la subrutina del re- 
loj hacia otras tareas, el reloj se pa- 
ra. 

Silvestre Segarra Masia 

Si los programas de gestion de los 
que usted habia son comerciales, y 
protegidos, no hay forma, a no ser 
que esten en Basic y usted los consi- 
gua desproteger. 

En cuanto a los programas hechos 
por usted, puede emplear el coman- 
do EVERY del Basic, que, mediante 
la tecnica conocida como interrup- 
ciones, ejecuta una subrutina cada 
cierto periodo de tiempo. 

La sintaxis del comando EVERY es 
la siguiente: 


EVERY tiempo, temporizador,GO- 
SUB numero-de-linea en donde 
«tiempo», es una cantidad en cin- 
cuentavos de segundo, «temporiza- 
dor» es justamente eso, uno de los 4 
que posee el Amstrad y que sirven 
para indicar la prioridad (descen- 
diendo de 3 a 0) y COSUB numero- 
de-li'nea es una llamada normal a la 
subrutina que usted quiere que se 
ejecute cada «tiempo» veces. 


Amigos de MICROHOBBY: Estu- 
die programacion con IBM P/C en el 
cual, al crear un fichero tenia la sen- 
tencia APPEND para poder anadir 
datos al mismo fichero creado. Me 
compro el 664 y, jcudi es mi sorpre- 
sa?... me encuentro que cuando ha- 
go un programa para crear fichercs, 
cuando quiero anadirle mds datos al 
fichero... jjme machaca los datos an- 
teriores!! 

Es posible que con AMSTRAD no 
pueda acumular datos en los fiche- 
ros secuenciales y tenga que recurrir 
a poner los datos en READ-DATA o, 
jcrear de nuevo todas las veces el fi- 
chero? 

Manuel Goret Rochera 

Efecfivamente, el Amstrad solo 
maneja ficheros secuenciales, pero la 
utilidad APPEND no se ha incluido. 

La solucion es, nos tememos, crear 
un nuevo fichero, trasvasar a el los 
datos del anterior y anadir los que 
hagan falfa. 

Otra posibilidad es olvidarse de los 
ficheros secuenciales y recurrir a los 
aleatorios. Si no recuerdo mal, en el 
disco que se entrega con el 664 vie- 
ne un paquete de utilidad que crea 
nuevos comandos Irsx que lo hacen. 


Soy un poseedor del Amstrad 
CPC-464. Estoy en vistas de com- 
prarme la unidad de discos que se 
puede acoplar a este ordenodor. 

^.°) Con esta unidad de discos, ja 
que tipo de software podre llegar?, 
o sea, jQ que tipo, CP/M, etc.? 

2.°) jPodre cambiar programas 
grabados en discos de un ordendor 
CPC-664?, gSe ejecutaran en mi or- 
denodor metidos en esa unidad de 
discos? 

3.°) jExiste clgun tipo de progra- 
ma, o copion, con el cual puedo pa- 
sor unos programas PROTEGIDOS, 
en cassette, a los discos? 

Fernando Martinez 

1) Software CP/M 2.2 y programa 
Basic o codiqo maquina. 


2) Si, siempre que esos programas 
no usen los nuevos comandos Basic 
del 664. 

3) En Inglaterra se vende varios 
«copiones», pero no se puede garan- 
tizar que puedan con todos los tipos 
de protecciones que existen ahora o 
puedan exisfir. 


— jHoy alguno forma de conector 
el monitor de f. verde a la solida de 
video del Spectrum, con olgun circui- 
to especial? 

Antonio Sanz Arnaiz (Burgos) 

En principio, debiera poder hacer- 
se perfecfamente. Basta averiguar, 
en el zocalo del monitor del Ams- 
trad, que patilla corresponde a ma- 
sa y cual a la serial de video propia- 
mente dicha, a la «luminancia». 

Con esta informacion y conocien- 
do lo mismo del Spectrum, bastaria 
conectarlo adecuadamenfe y lisfo. 

En el manual de Amstrad viene un 
esquema del zocalo del monitor, en 
la pagina 7/39. 

Para mayor comodidad, lo repro- 
ducimos aqui: 

ZOCALO DEL MONITOR 
VISTO POR DETRAS 


MASA 



LUMINANCIA 


Patilla I ROJO 
Patilla 2 VERDE 
Patilla 3 AZUL 


Patilla 4 SINC 
Patilla 5 MASA 
Patilla 6 LUM 
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^.GABINETE DE INFORMATICA 

Closes de Informd'tiea 
sobre AMSTRAD 

Exclusivamente individuales. 

Ordenadores AMSTRAD y 

perifericos 

Los mejores precios 

Software a la medida 

ZURBANO, 4^410 47 63 
28010 MADRID 
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C/ Duque de Sesto, 50. 28009 Madrid 

Tel.: (91)275 96 16/274 53 80 

(Metro O'Donell o Goya) 


SOFTWARE: por cada programa GRATIS u^ BOLIGRAFO CON RELOJ DE CUARZO!! 


HYPER SPORTS 2.300 ptas. 

TORNADO LOW LEVEL 1.950 ptas. 

EXPLODING FISTT 2.300 ptas. 

JUMP JET 2.495 ptas. 

ZORRO 2.600 ptas. 

SABREWULF 1.650 ptas. 

GHOSTBUSTERS 1.950 ptas. 

GYROSCOPE 2.300 ptas. 

HYGHWAY ENCOUNTER 1.750 ptas. 

HIGHWAY ENCOUNTER DISCO 3.300 ptas. 


DYNAMITE DAN 2.100 ptas. 

RAID OVER MOSCOW 2.300 ptas. 

THEY SOLD A MILLION 2.500 ptas. 

FIGHTER PILOT 1.975 ptas. 

MASTER OF T. LAMP 1.950 ptas. 

NIGHTSHADE 1.950 ptas. 

HACKER 1.950 ptas. 

SUPER TEST 2.300 ptas. 

MAPGAME 2.700 ptas. 

TONADO LOW LEVEL DISCO 3.300 ptas. 


I 


Z; 


JOYSTICK QUICK SHOTT II.. 2.295 ptas. 
JOYSTICK QUICK SHOT V . . . 2.595 ptas., 


z 


TAPA METACRILATO PARA 
TECLADO ii1.900 ptas.l! , 


z 


IMPRESORA MARGARITA / 
ji49.900 ptas.l! / 


/ 


UNIDAD DISKETTE 5.25" 
Ii45.900 ptas.l! / 

(incluldo controlador) / 


PC-COMPATIBLE IBM 256 K 

MONITOR FOSFORO VERDE 

2 BOCAS DISKETTE 360 K 

SOLO ||243.900!l 


z 


z 


LAPIZ OPTICO 
ji4.900 ptas.!! 


CASSETTE ESPECIAL 
ORDENADOR 5.295 ptas. 


/ 


PRECIOS SUPER-EXCEPCIONALES PARA 
AMSTRAD CPC-472 Y CPC-6128 / 

iiLLAMANOS, TE ASOMBRARAS!! / 


IMPRESORAS 
1120% DTO. SOBRE P.V.P.H 


SIIMTETIZADOR DE VOZ 

Y AMPLIFICADOR: 

7.900 ptas. 


z 


z 


MODULADOR TV 
8.400 ptas. 


INTERFACE DISCO 
5 1.4" 5.300 ptas. 


L 


CINTA C-15 ESPECIAL 
ORDENADOR 85 ptas. 
DISKETTE 3" 990 ptas. 


z 


UNIDAD DE DISCO 3" CON 
CONTROLADOR: 49.900 ptas. 


y 



Libros: 

Curse autodidcictico Basic I 2.525 ptas. 

Curse autodld^ctico Basic II 2.525 ptas. 

Programando con Amstrad 2.195 ptas. 

Juegos sensacionales Amstrad 1.950 ptas. 

Hacia la Inteligencia Artific 1.295 ptas. 

Musica y sonidos con Amstrad 995 ptas. 


I Pedidos contra reembolso sin ningun gasto de envlo. Tels.OI) 275 96 16/274 53 80, o escribiendo a IVIicro-I.C/ Duque de Sesto, 50. 28009 IVIadrid 


Hercado 
comiin 


V»i<on el objeto de fomentar las rela- 
clones entre los usuarios de AMSTRAD, 
MERCADO COMUN te ofrece sus pagi- 
nas para publican los pequenos anuncios 
que relocionados con el ordenador y su 
mundo se ajusten al formato indicado a 
continuacion. 

En MERCADO COMUN tienen cabida, 
anuncios de ventas, compras, clubs de 
usuarios de AMSTRAD, programadores, 
y en general cuclquier close de anuncio 
que pueda servir de utilidad a nuestros 
lectores. 

Envfanos tu anuncio mecanografiado 
a: HOBBY PRESS, S.A. 
AMSTRAD SEMANAL. 
Apartado de correos 54.062 
28080 MADRID 

iABSTENERSE PIRATAS! 


Vendo Amstrad 464 verde 
50.000. Disco con controlodor 
47.000. Todo por 95.000 pts. 
Garcntic 4 meses. Con monuales, 
libros y 20 juegos y utilidades, los 
mejores. Tel. 888 58 41. Jose Luis. 
Cenas. Madrid. 


Intercambio con usuarios 
Amstrad tanto programas como 
especialmente trucos y utilidodes. 
Poseo un CPC 6128 y estoy 
tambien interesado programas en 
Disco. Contestare a todos. Y a ti 
que empiezas. Luciano Sancha 
Rivero. C/ Avda. Jose Farinas, 54 
- 5.° D. 21006 Huelva. Tel. 
22 47 20 (9-10 noche). 


Vendo o cambio juegos (ultimos 
exitos) para el ordenador Amstrad 
CPC 464 entre ellos tengo 
copiones, knight lore, decathlon, 
beach-head, etc... Borja Sancho. 
C/ Pza. San Francisco, 7. Borja 
(Zaragoza) Tel. (976) 86 77 28. 


Cambio programas comerciales, 
ultimos exitos. Dragontorc, knighe 
lore, pijomarama, etc. Escribir a: 
C/Mudela, 29. 4.° C. 28018 
Madrid. 


Desecria contactor con usuarios 
del Amstrad CPC 6128 para 
intercambio, de ideas, 
comentarios, etc. Tengo algunos 
programas interesantes. A ser 
posible de Madrid. Carlos. Tel. 
(91) 233 05 74 (comidos o cenas). 


VendO/ cambio programas para 
Amstrad CPC 664. Interesodos 
escribir a Juan Mucientes Rasilla. 
a Nicaragua, 14-5.° C. 15005 La 
Coruna. 


Vendo lector de discos Amstrad 
nuevo, con garantia, por 40.000 
pts. e impresora Seikosha mod. SP 
800 nueva, con garantia, por 
54.000 pts. Interesodos llamar al 
Tel. (972) 21 17 86. 


Tenemos todos los modelos de AMSTRAD, perifericos, 
software y libros. Programas y juegos para el 8256. 

AMSTRAD (programas e instrucciones en castellano) 

Commodore 

Apple-Accorn 

Spectrum 

Robot 

^/[ Fischertechnik 

precio incluyendo caja de construccion software, 
interface y adaptador 34.990 ptas. 

Distribuidor para Espana 

Centre Comercial, Local 15. Ciudad Sto. Domingo 

Carrelera de Burgos. Km 28 ALGETE ■ MADRID 

Telf. 622 12 89 




Si no to encuenlras en lu Itenda habitual. ttAmanos 
y te to enviaremos dueclan^enie contra rcembotso 


• Cor^tabilidad CPC 664 y CPC 6128 

• Contabilidad PCW 8256 


TE OFRECEMOS EL NUEVO 
PLAN GENERAL CONTABLE 
CON LV.A. 

13.900 ptas. 
37.500 ptas. 


Disponemos de un equipo de software a tu servicio, 
Hacemos programas a medida. 

REOUERDA: — Damos soluclon a la pequena y mediana empresa. 
Torres Quevedo, 34 Tel, 967/22 79 44 02003 ALBACETE 



FRANQUEO 
POSTAL 



^ 


1 disponible 


•^^ •^•^•j^i-^ai ii-<jii\jsJ l^uv^l IVJ ^UIIIC^II^ WUICI lUI 


ffi 


disparos gratis. 


BLOCKER 


Demuestra tu habilidad esquivando 
las paredes y a tus enemigos. Cuantos 
mds destruyas, mds aparecerdn ante ti. 


HOBBY PRESSES. A. 

Apartado de Correos N.° 232 

ALCOBENDAS 

(Madrid) 


odos los 

)erinto, 

enfadados 

e intentaran deshacerse de ti a toda 

costa, 




A! cargar este programa aparecerd 
ante ti un bataiion de alienigenas. Tu 
mision es destruirlos, pero cuidado, su 
intencion es eliminarte lo antes posible. 


VAMPIRO 


Es un programa en el cual pueden 
participar dos jugadores. La mision de 
cada uno serd pintar las Idpidas de un 
color distinto. La destruccion del enemigo 
significa la victoria. 


Es una rutina en codigo mdquina, que 
te permitird siete colores en pantalla en 
MODO 1, en el cual normalmente solo se 
pueden utilizar cuatro. 


Si no lo encontrora en su 
quiosco, solicitelo directa- 
mente a nuestra editorial. 



Paseo de la Castellana, 268. 
28046 Madrid. TeL (91) 733 25 99 


La mejor seleccion de programas de juegos y utilidades, publicados en la revista de mayor difusion 
de ordenadores de Europe. Ahora reproducidos en cassette, en autentica exclusivo mundial. 



<on el obje' 
clones entre los 
MERCADO COf, 
naspara publica 
que relacionado 
mundo se ajuster 
continuQci6n. 

En MERCADO 
anuncios de ven 
usuarios de AMS 
y en general cua 
que pueda servii 
lectores. 

Envianos fu ar 

a: HOBBY PRESS,^.«. 

AMSTRAD SEMANAL. 
Aportado de correos 54.062 
28080 MADRID 

iABSTENERSE PIRATAS! 


SOUCITUD DE CINTAS DE PROGRAMAS 

Oferta vdlida hasta el 28 de febrero de 1986. 

Ueseo recibir en mi domicilio, a\ precio de 756 ptas. (IVA incluido), las 
siguientes cintas con los progromas publicados por Microhobby AMSTRAD. 
Marco con una (x) la(sj cinta(s) que deseo: 

D Cinfa n. 1 (contiene progromas publicados en revistos 1 al 4 inclusive). 

D Cinto n." 2 (contiene progromas publicados en revistas 5 ol 8 inclusive). 
NOTA: D Cinta n. " 3 (contiene progromas publicados en revistos 9 all 2 inclusive). 

Por razones odministrati- Q Cinta n." 4 (contiene progromas publicados en revistas 13 ol 16 inclusive), 

kos, nopodemos odmilir solicitu- □ Cinta n." 5 (contiene progromas publicados en revistas 17 ol 20 inclusive). 

des de eny,ode anios con pago corira g cinto n." 6 (contiene programas publicados en revistas 21 ol 40 inclusive). 

n Cinta n." 7 (contiene progromas publicados en revistas 41 ol 60 inclusive). 

n Cinta n." 8 (contiene progromas publicados en revistos 61 al 80 inclusive). 



reembolso o Torjela de Credito. Por favor, envi'a 

talon por el importe o giro postal. 

Si lo forma de pago elegido es talon boncario, remitelo junto con 


esle cupon en un sobre cerrado a lo misma direccion. 

Las cintas de programas se edilan una coda mes. Si solicitos varios, las recibirds sucesivamente, conforme sean editadas. No se cobran gastos de envio por las cintas. 


NOMBRE 

APELLIDOS 

DOMICILIO 

CIUDAD 

C. POSTAL TELEFONO 

;ERES SUSCRIPTOR DE MICROHOBBY AMSTRAD? . 


EOAD 


PROVINCIA 


PROFESION 


N.o DE SUSCRIPTOR (si lo recuerdas) 


Marco con una (x) en el casillero corresponciiente la forma de pago que mds me conviene. 

Talon boncario adjunto a nombre HOBBY PRESS, S. A. 
J Giro Postal a nombre de HOBBY PRESS, S. A., N." ^ r,rma y fe<ha: 


C/ Pza. San Francisco, 7. Borjo 
(Zaragoza) Tel. (976) 86 77 28. 


nuevo, con garantia, por 40.000 
pts. e impresora Seikosha nnod. SP 
800 nueva, con garontfc, por 
54.000 pts. interesodos llamar ol 
Tel. (972) 21 17 86. 




I 


I 


St no lo encuentras en tu tienda habifual. Il^manos 
y te lo envfaremos direcfamente contra reembolso 


Tenemos todos los modelos de AMSTRAD, perifericos, 
software y libros. Programas y juegos para el 8256. 

AMSTRAD (programas e instrucciones en castellano) 

Commodore 

Apple-Accorn 

Spectrum 

Robot 

Fischertechnik 

precio incluyendo caja de construccion software, 
interface y adaptador 34.990 ptas. 

Distribuidor para Espana 

Centre Comercial, Local 15. Ciudad Sto. Domingo 

Carretera de Burgos, Km 28 ALGETE - MADRID 

Telf. 622 12 89 



• Cor^tabilidad CPC 664 y CPC 6128 

• Contabilidad PCW 8256 


TE OFRECEMOS EL NUEVO 
PLAN GENERAL CONTABLE 
CON I.V.A. 

13.900 ptas. 
37.500 ptas. 


Disponemos de un equipo de software a tu servicio, 
Hacemos programas a medida. 

REOUERDA: — Damos soluclon a la pequena y mediana empresa. 
Torres Quevedo, 34 Tel. 967/22 79 44 02003 ALBACETE 


II 


...descubre 




tambien disponible 


'^^jiClfiS 


-— -1 


L- 



Si te gusta el tiro al bianco, con este 
programa podrds practicar sin necesidad de salir 
de casa, Si tienes buena punterla obtendrds 
disparos gratis, 


. BLOCKER 


Demuestra tu habilidad esquivando 
las paredes y a tus enemigos, Cuantos 
mds destruyas, nnds aparecerdn ante ti, 


HAUNTED 


En este caso debes coger todos los 
puntos que aparecen en el laberinto, 
iAtencionl, los fantasnnas estdn enfadados 
e intentardn destiacerse de ti a toda 
costa. 


SPACE 


Al cargar este progranna aparecerd 
ante ti un batallon de alienigenas. Tu 
d mision es destruirlos, pero cuidado, su 
I intencion es eliminarte lo antes poslble. 


VAMPIRO 


Es un programa en el cual pueden 
participar dos jugadores. La mision de 
cada uno serd pintar las Idpidas de un 
color distinto. La destruccion del enemigo 
significa la victoria, 



SPLIT 


Es una rutina en codigo mdquina, que 
^e permitird siete coiores en pantalla en 
MODO 1, en el cual normalmente solo se 
pueden utilizar cuatro. 


Si no lo encontrara en su 
quiosco, solicitelo directa- 
mente a nuestra editorial. 



Paseo de la Castellana, 268. 
28046 Madrid. TeL (9.1) 733 25 99 


O 



La mejor seleccion de programas de juegos y utilidadeS; publicados en la revista de mayor difusion 
{le ordenadores de Europe. Ahora reproducidos en cassette, en autentica exclusive mundial. 


SINCLAIR STORE 

EL CENTRO 
DEL HARDWARE 


SPECTRUM 48 K 
SPECTRUM PLUS 
SPECTRUM 128 
SINCLAIR QL 
COMMODORE 64 
COMMODORE 128 
COMMODORE PC1D 
COMMODORE PC 20 
AMSTRAD 472 
AMSTnAD6128 
AMSTRAD 8256 

Y 

SPECTRAVIDEO 
MSX 






• EN SINCLAIR STORE USTED NO PAGA EL IVA 

• IMPORTANTESDESCUENTOSY/0 REGALOS 

• FOR LA COMPRA DE UN ORDENADOR, 
CURSO GRATIS D E INFORMATICA 

• SOFTWARE DESCUENTOS HASTA EL 20% 

• MONITORES20% DESCUENTO. 

• EN TODAS LAS IMPRESORAS 
20% DE DESCUENTO 

• JOYSTICK QUICK SHOT II 
INTERFACE TlPO KEMPSTON 3.800 Pts. 

• JOYSTICK ANATOMICOAMARILLO 
INTERFACE TlPO KEMPSTON 3.200 Pts. 


• PC COMPATIBLE IBM P.V.P. 212.000 Pts. 

• iULTIMANOVEDADEN ELMERCADO! 
ATARI 520 ST YADISPONIBLE. 

iVEN APROBARLOI 

• PRECIOS ESPECIALES PARA COLECTIVOS Y EMPRESAS 

• DISTRIBUIDORES OFICIALES DE TODAS LAS MARCAS. 
CON AUTENTICO SERVICIO PROFESIONAL DE POST-VENTA 

• VEN A VERNOS, NOSOTROS MANTENEMOS LAS REBAJAS. 
EN TODOS LOS ARTICULOS, HASTA EL 31 DE MARZO"^^ 

• NECESITAMOS DISTRIBUIDORES. 
SOMOSMAYORISTAS 




vi^ilmjffif^ ^^u 


/# 


SOmOS PROFESIONALES 


BRAV0MURILL0,2 

(Glorieta de Quevedo) 

Tel. 446 62 31 -28015 MADRID 

Aparcamiento GRATUITO Magallanes, 1 


DIEGO DE LEON, 25 

(Esq. Nunez de Balboa) 

TeL261 88 01 -28006 MADRID 

Aparcamiento GRATUITO Nunez de Balboa, 1 14 


FELIPE II, 12 

(Metro Goya) 

Tel. 431 32 33 -28 009 MADRID 

Aparcamiento GRATUITO Felipe II 


